＜% @Language = VBScript% ＞
＜% Option explicite% ＞
＜%
«Le programme de programme suivant renomment les noms de fichiers dans le dossier et déplace tous les fichiers vers un nouveau dossier;
Response.Write "＜ Html ＞" & vbcrlf & "＜ Head ＞" & vbcrlf
Response.Write "＜ Title ＞ Changement de nom de fichier batch </ title ＞" & vbcrlf
Response.Write "＜ / Head>" & vbcrlf & "＜ Body>" & vbcrlf
'Description variable
Sombre gbolgoprocedure
Dossier strfromdir'source
Dossier strtargetdir'target
Obscurcissement
Objrootfolder faible
Objfile sombre
Strfilenamelen sombre
Dim strprevfilename
Extension de fichier Dim StrfileExt
Dim strfilenameCount
Dim SttrnewFilename
Nombre de fichiers DIM STRRREALCOUNT traités
gbolgoprocedure = false
'Si le bouton Démarrer est cliqué, effectuez le traitement suivant
If (request.form ("gobutton")) = "start" alors
'Spécifiez le dossier source et le dossier de destination
strFromdir = "d: test /"
strtargetdir = "d: / test1 /"
«Définissez le nombre de fichiers de traitement sur 0
strrealcount = 0
SET OBJFS = Server.CreateObject ("Scripting.FileSystemObject")
Définir ObjrootFolder = objfs.getfolder (strtargetdir)
'Les paramètres spécifiques du nom du fichier, définis à 100001 ici, indiquant que le nom du fichier sera de 100001
«Démarrer, l'incrément progressivement, peut être réglé selon les besoins;
strFilenameCount = 100001
Pour chaque objfile dans objrootfolder.files
«Pour les fichiers spécifiques, ils ne sont pas traités et peuvent être définis au besoin;
Si objfile.name = "thumbs.db" alors strFilenameCount = strFilenameCount - 1
strFilenameCount = strFilenameCount + 1
Suivant
Définir ObjrootFolder = objfs.getfolder (strFromdir)
Pour chaque objfile dans objrootfolder.files
strfilenamelen = len (objfile.name)
Si mid (objfile.name, (strfilenamelen - 3), 1) = "." alors
strfileExt = droite (objfile.name, 4)
Autre
strfileExt = droite (objfile.name, 5)
Terminer si
strprevfilename = objfile.name
strNewFileName = strFilenameCount & strfileExt
objfile.move strtargetdir & strnewfilename
Response.Write "Fichier source:" & strfromdir & strprevfilename & "＞ bouge
strFilenameCount = strFilenameCount + 1
strrealcount = strrealcount + 1
Suivant
Response.Write "＜ P ＞＜ B ＞ Traitement total:" & (strrealcount) & "Files </b>" & vbcrlf
Définir objrootfolder = rien
Définir objfs = rien
gbolgoprocedure = true
Terminer si
Si gbolgoprocedure alors
Response.Write ("＜ P ＞＜ B ＞ Batch Fichier Batch Move and Rename </ B ＞") & vbcrlf
Autre
Response.Write ("＜ Centre ＞＜br> ＜ Form Method =" "Post" "Action =" "filenameConverter.asp" "id = form1 name =" "Form1" ""> ") & vbcrlf
Response.Write ("＜ Input type =" "Soumider" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Réponse.write ("＜ / form>") & vbcrlf
Response.Write ("＜ P ＞＜ B ＞ Cliquez sur le bouton pour se déplacer par lots et renommer le fichier </ b ＞＜ / centre ＞") & vbcrlf
Terminer si