＜ % @Ulouage = vbscript % ＞
＜%Option explizit%＞
＜%
'Die folgende Programm -Stapel benennt die Dateinamen im Ordner um und verschiebt alle Dateien in einen neuen Ordner.
Antwort.Write "＜ html ＞" & vbcrlf & "＜ Head ＞" & vbcrlf
Antwort.Write "＜ Titel ＞ Batch -Dateiname Änderung </title ＞" & vbcrlf
Response.write "＜/head>" & vbcrlf & "＜ body>" & vbcrlf
'Variable Beschreibung
Dim Gbolgoprocedure
Dimer Strfromdir -Surce -Ordner
DIM -StrtargetDir'target -Ordner
Dimer objfs
Dimer Objrootfolker
Dimer Objfile
Dim Strafilenamelen
Dimer StrprevFileName
Dim StrFilext 'Dateierweiterung
Dim straffilenameCount
Dimer StrnewFileName
Dim StrrealCount 'Anzahl der verarbeiteten Dateien
gbolgoprocedure = false
'Wenn auf die Schaltfläche Start geklickt wird, führen Sie die folgende Verarbeitung durch
If (request.form ("sobutton")) = "starten" dann
'Geben Sie den Quellordner und den Zielordner an
strfromdir = "D: test/"
StrtargetDir = "D:/test1/"
'Setzen Sie die Anzahl der Verarbeitungsdateien auf 0 ein
StrrealCount = 0
Setzen Sie objfs = server.createObject ("scripting.FilesSystemObject").
Setzen Sie objrootfolker = objfs.getFolder (StrtargetDir)
'Die spezifischen Einstellungen des Dateinamens, der hier auf 100001 gesetzt ist, was darauf hinweist, dass der Dateiname von 100001 stammt
'Start, schrittweise inkrementiert, kann nach Bedarf festgelegt werden.
strFilenameCount = 100001
Für jede objfile in objrootfolder.files
'Für bestimmte Dateien werden sie nicht verarbeitet und können nach Bedarf festgelegt werden.
Wenn objFile.name = "thumbs.db", dann strFilenameCount = strFilenameCount - 1
strFilenameCount = strFilenameCount + 1
Nächste
Setzen Sie objrootfolker = objfs.getFolder (strfromdir)
Für jede objfile in objrootfolder.files
strFilenamelen = len (objfile.name)
If Mid (objfile.name, (strFilenamelen - 3), 1) = "." Dann
strFileext = rechts (objFile.name, 4)
Anders
strFileext = rechts (objFile.name, 5)
Ende wenn
strprevFileName = objFile.name
StrnewFileName = strFilenameCount & Strafileext
OBJFILE.MOVE STRTARGETDIR & STRNEWFILENAME
Antwort.Write "Quelldatei:" & strfromdir & strprevFileName & "＞ Move und ändern sie in" & Strtargetdir & StrnewFileName & "＜br>" & VBCRLF
strFilenameCount = strFilenameCount + 1
StrrealCount = StrrealCount + 1
Nächste
Antwort.
Objrootfolker einstellen = nichts
Setzen Sie OBJFS = nichts
gbolgoprocedure = true
Ende wenn
Wenn gbolgoprocedure dann
Antwort.Write ("＜ P ＞＜ B ＞ Batch -Datei -Batch -Bewegung und Umbenennen von </b ＞") & VBCRLF
Anders
Antwort.Write ("＜ Center ＞＜BR> ＜ Form Methode =" "post" "" action = "" fileNameConverter.asp "" id = Form1 name = "" Form1 "" ">") & VBCRLF
Response.write ("＜ Eingabe type =" "" "" value = "" start "" id = "" Sobutton "" name = "" Sobutton "" ""> ") & VBCRLF
Response.write ("＜/form>" ") & vbcrlf
Antwort.Write ("＜ P ＞＜ B ＞ Klicken Sie auf die Schaltfläche, um die Datei zu stapeln und die Datei </b ＞＜/center ＞") & VBCRLF umbenennen
Ende wenn