Für Website-Designer ist es unvermeidlich, von Zeit zu Zeit große Mengen an Dateien zu verarbeiten, insbesondere Bilder und einige Textdateien, die häufig verarbeitet werden. Aufgrund der großen Anzahl an Dateien auf der Website werden Dateien desselben Typs nach bestimmten Regeln häufig mit aufsteigenden Nummern benannt. Beispielsweise werden unsere gängigen Bilddateien häufig mit 1001.jpg und 1002 benannt. Der Vorteil der JPG-Methode besteht darin, dass die Dateinamen werden nicht wiederholt und es ist einfach zu verwalten. Hier stellen wir speziell eine einfache und unkomplizierte Methode zum Stapelumbenennen aller Dateien in einem beliebigen Ordner vor. Natürlich werden die Dateinamen nach dem Umbenennen entsprechend den Anforderungen des Website-Designers numerisch erhöht.
Wir verwenden ASP, um die oben genannten Funktionen zu implementieren. Da das Design Dateioperationen umfasst und das FileSystemObject-Objekt verwendet, muss die Implementierung dieser Funktion auf einer Website mit Dateioperationsberechtigungen durchgeführt werden. Allgemeine virtuelle Aufmerksamkeit: Unter Berücksichtigung der Sicherheitsanforderungen sind möglicherweise keine Dateiexistenzberechtigungen erteilt. Darüber hinaus müssen wir im folgenden Programm alle Dateien im angegebenen Ordner strFromDir bearbeiten Es handelt sich um diese Datei. Unabhängig vom Dateityp wird das Programm die Dateien im Ordner umbenennen. Der Dateityp wird dabei natürlich nicht mehr im ursprünglichen Ordner gespeichert, sondern in einen verschoben Neuer Ordner. Bitte beachten Sie, dass wir hierher verschieben und nicht kopieren, sodass das Programm nach dem Vorgang nicht mehr alle vom FileSystemObject-Objekt bereitgestellten Eigenschaften und Funktionen nutzt Offensichtlich ist es für Freunde, die in anderen Sprachen programmieren, ein tiefes Gefühl. Schauen wir uns jetzt den Funktionsimplementierungscode an:
＜% @LANGUAGE = VBSCRIPT %＞
＜%Option Explicit%＞
<%
„Das folgende Programm benennt Dateien in einem Ordner stapelweise um und verschiebt alle Dateien in einen neuen Ordner;
Response.Write „＜html＞“ & VbCrLf & „＜head＞“ & VbCrLf
Response.Write „＜title＞Batch file rename＜/title＞“ & VbCrLf
Antwort. Schreiben Sie „＜/head＞“ & VbCrLf & „＜body＞“ & VbCrLf
'Variablenbeschreibung
Dim gbolGoProcedure
Dimmen Sie strFromDir 'Quellordner
Dim strTargetDir 'Zielordner
Dimmen Sie objFS
Dimmen Sie objRootFolder
Dimmen Sie objFile
Dimmen Sie strFileNameLen
Dimmen Sie strPrevFileName
Dim strFileExt 'Dateierweiterung
Dimmen Sie strFileNameCount
Dimmen Sie strNewFileName
Dim strRealCount 'Anzahl der verarbeiteten Dateien
gbolGoProcedure = False
'Wenn auf die Startschaltfläche geklickt wird, führen Sie die folgende Verarbeitung durch
If (Request.Form("GoButton")) = "Start" then
'Geben Sie den Quellordner und den Zielordner an
strFromDir = "D:test"
strTargetDir = "D:test1"
' Anzahl der zu verarbeitenden Dateien auf 0 setzen
strRealCount = 0
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objRootFolder = objFS.GetFolder(strTargetDir)
„Die spezifische Einstellung des Dateinamens, hier auf 100001 eingestellt, zeigt an, dass der Dateiname von 100001 geändert wird.“
„Starten, schrittweise steigern und nach Bedarf einstellen;
strFileNameCount = 100001
Für jede objFile in objRootFolder.Files
„Für bestimmte Dateien wird keine Verarbeitung durchgeführt und kann nach Bedarf eingestellt werden;
Wenn objFile.Name = "Thumbs.db", dann strFileNameCount = StrFileNameCount - 1
strFileNameCount = strFileNameCount + 1
Als nächstes
setze objRootFolder = objFS.GetFolder(strFromDir)
Für jede objFile in objRootFolder.Files
strFileNameLen = Len (objFile.Name)
Wenn Mid (objFile.Name,(strFileNameLen - 3),1) = ", dann
strFileExt = right(objFile.Name, 4)
Anders
strFileExt = right(objFile.Name, 5)
Ende Wenn
strPrevFileName = objFile.Name
strNewFileName = strFileNameCount & strFileExt
objFile.Move strTargetDir & strNewFileName
Response.Write "Quelldatei: " &strFromDir&strPrevFileName & " > Verschieben und umbenennen: " &strTargetDir& strNewFileName & "＜br＞" & vbCrLF
strFileNameCount = strFileNameCount + 1
strRealCount = strRealCount + 1
Next
Response.Write „＜p＞＜b＞ Insgesamt verarbeitet: „ & (strRealCount) & „ files＜/B＞“ & vbCrLf
Set objRootFolder = Nothing
Set objFS = Nothing
gbolGoProcedure = True
End If
If gbolGoProcedure Then
Response.Write("＜p＞＜b＞Batch-Dateiverschiebung und Umbenennung＜/b＞") & vbCrLf
Else
Response.Write("＜center＞＜br＞＜form method=""post"" action=""FileNameConverter.asp"" ID=form1 name=""form1""＞") & vbCrLf
Response.Write("＜input type=""SUBMIT"" value="" Start"" ID=""GoButton"" name=""GoButton""＞") & vbCrLf
Response.Write("＜/form＞") & vbCrLf
Response.Write("＜p＞＜b＞Klicken Sie auf die Schaltfläche, um Dateien stapelweise zu verschieben und umzubenennen＜/b＞＜/center＞") & VbCrLf
End If
Response.Write „＜/body＞“ & VbCrLf & „＜/html＞“
%＞