Für Website -Designer ist es unvermeidlich, große Stapel von Dateien häufig zu verarbeiten, insbesondere Bilder und einige Textdateien, die noch häufiger sind. Aufgrund der großen Anzahl von Dateien auf der Website verwendet die Benennung von Dateien desselben Typs häufig inkrementelle Nummern mit einer bestimmten Regelmäßigkeit als Dateinamen. Beispielsweise verwendet die Benennung gemeinsamer Bilddateien häufig 1001.jpg und 1002.jpg. Dieser Vorteil ist, dass die Dateinamen nicht dupliziert werden und einfach zu verwalten sind. Hier führen wir speziell eine einfache und einfache Möglichkeit ein, ASP zu verwenden, um einfach Batch -Umbenennen zu verwenden, um alle Dateien umzubenennen. Natürlich werden die Dateinamen nach der Umbenennung entsprechend den Anforderungen des Website -Designers erhöht.
Wir verwenden ASP, um die oben genannten Funktionen zu implementieren. Es ist zu beachten, dass die Implementierung dieser Funktion auf einer Website mit den Berechtigungen des Dateibetriebs durchgeführt werden muss Im Allgemeinen ist die virtuelle Aufmerksamkeit, dass die Datei unter Berücksichtigung der Sicherheitsanforderungen möglicherweise keine Berechtigungen erhält, was wir zuerst beachten müssen. Im folgenden Programm werden wir alle Dateien im angegebenen Ordner strfromdir bedienen. Solange es sich um eine Datei in diesem Ordner handelt, unabhängig von der Dateityp wird das Programm umbenannt. Natürlich wird der Dateityp nicht geändert. Die Dateien nach dem Namen werden nicht im Originalordner gespeichert, sondern in den neuen Ordner StrtargetDir verschoben. Beachten Sie, dass wir uns hierher bewegen und nicht kopieren. Nach dem Vorgang gibt es nicht alle Dateien im ursprünglichen Ordner. Das Programm nutzt die verschiedenen Attribute und Funktionen, die vom Dateisystem -System -Objekt bereitgestellt werden, gut, und die Implementierung ist einfach und klar, und Freunde, die andere Sprachen verwenden, können es tief spüren. Schauen wir uns nun den Funktionsinformationscode an:
< % @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
Response.write "</body>" & vbcrlf & "</html>"
%>
Das obige ist der gesamte Inhalt von ASP implementiert einfach den Stapelnamen aller Dateien. Weitere aufregende Inhalte finden Sie im Miaoxin -Technologiekanal.