＜ % @Language = VBScript % ＞
＜%opción explícita%＞
＜%
'El siguiente lote del programa renombra los nombres de archivo en la carpeta y mueve todos los archivos a una nueva carpeta;
Respuesta
Respuesta
Response.write "＜/Head>" & Vbcrlf & "＜ Body>" & Vbcrlf
'Descripción variable
Dim GbolgoproCedure
Dim strfromdir'surce carpeta
Dim strtargetdir'target carpeta
Dim OBJFS
Dim angarfolder
Dim objfile
Dim strfilenamelen
Dim strprevfilename
Dim strfileExt 'Extensión del archivo
Dim strfilenamecount
Dim strnewFileName
Dim strrealCount 'Número de archivos procesados
gbolgoprocedure = falso
'Si se hace clic en el botón de inicio, realice el siguiente procesamiento
If (request.form ("gobutton")) = "inicio" entonces entonces
'Especifique la carpeta de origen y la carpeta de destino
strFromDir = "D: Test/"
strtargetdir = "d:/test1/"
'Establezca el número de archivos de procesamiento en 0
strrealcount = 0
Establecer objfs = server.createObject ("scripting.filesystemObject")
Establecer objrootfolder = objfs.getFolder (strTargetDir)
'La configuración específica del nombre del archivo, establecido en 100001 aquí, lo que indica que el nombre del archivo será de 100001
'Comience, incremento gradualmente, se puede establecer según sea necesario;
strfilenamecount = 100001
Para cada objfile en objrootfolder.files
'Para archivos específicos, no se procesan y se pueden configurar según sea necesario;
If objfile.name = "Thumbs.db" Entonces strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
Próximo
Establecer objrootfolder = objfs.getfolder (strFromDir)
Para cada objfile en objrootfolder.files
strfilenamelen = len (objfile.name)
Si mid (objfile.name, (strfilenamelen - 3), 1) = "." entonces
strfileExt = right (objfile.name, 4)
Demás
strfileExt = right (objfile.name, 5)
Final si
strprevfileName = objfile.name
strNewFileName = strfilenamecount & strfileext
objfile.move strtargetdir & strnewfileName
Respuesta
strfilenamecount = strfilenamecount + 1
strrealCount = strrealCount + 1
Próximo
Respuesta
Establecer objrootfolder = nada
Establecer objfs = nada
gbolgoprocedure = verdadero
Final si
Si gbolgoprocedure entonces
Response.Write ("＜ P ＞＜ B ＞ Lote de lotes MOVO Y Cambiar el nombre </b ＞") y VBCRLF
Demás
Response.Write ("＜ Center ＞＜BR> ＜ Form Method =" "Post" "Action =" "FileNameConverter.asp" "ID = Form1 name =" "Form1" ""> ") & Vbcrlf
Response.Write ("＜ ＜ ＜ ＜ type =" "enviar" "value =" "inicio" "id =" "Gobutton" "name =" "Gobutton" ">") & vbcrlf
Response.write ("＜/form>") y vbcrlf
Response.Write ("＜ P ＞＜ B ＞ Haga clic en el botón para moverse por lotes y cambiar el nombre del archivo </b ＞＜/Center ＞") y vbcrlf
Final si