Para los diseñadores de sitios web, es inevitable procesar grandes lotes de archivos con frecuencia, especialmente imágenes y algunos archivos de texto, que son aún más frecuentes. Debido a la gran cantidad de archivos en el sitio web, el nombramiento de archivos del mismo tipo a menudo utiliza directamente números incrementales con cierta regularidad como nombres de archivos. Por ejemplo, el nombramiento de archivos de imagen comunes a menudo usa 1001.jpg y 1002.jpg. Esta ventaja es que los nombres de los archivos no serán duplicados y son fáciles de administrar. Aquí, presentamos específicamente una manera simple y fácil de usar ASP para simplemente usar renamamentos de lotes para cambiar el nombre de todos los archivos. Por supuesto, los nombres de archivo después del cambio de nombre se incrementan de acuerdo con las necesidades del diseñador del sitio web.
Utilizamos ASP para implementar las funciones anteriores. Cabe señalar que debido a que diseñar operaciones de archivos y usar los objetos de SystemObject de archivos, la implementación de esta función debe llevarse a cabo en un sitio web con permisos de operación de archivo. En general, la atención virtual es que, teniendo en cuenta los requisitos de seguridad, el archivo no puede recibir permisos, que es a lo que debemos prestar atención primero; En el siguiente programa, operaremos todos los archivos en la carpeta especificada STRFROMDIR. Siempre que sea un archivo en esta carpeta, sin importar cuál sea el tipo de archivo, el programa lo cambiará el nombre. Por supuesto, el tipo de archivo no se cambiará. Los archivos después del nombre no se guardarán en la carpeta original, pero se moverán a la nueva carpeta strtargetDir. Tenga en cuenta que nos estamos moviendo aquí, no copiando, por lo que después de la operación, no existirán todos los archivos en la carpeta original; El programa hace un buen uso de los diversos atributos y características proporcionadas por el objeto FileSystemObject, y la implementación es simple y clara, y los amigos que usan otros idiomas pueden sentirlo profundamente; Ahora, veamos el código de implementación de la función:
＜ % @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 de 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
Response.Write "＜/Body>" & vbcrlf & "＜/html>"
%＞
Lo anterior es todo el contenido de ASP simplemente implementando renombros de nombres por lotes de todos los archivos. El contenido más emocionante se encuentra en el canal de tecnología Miaoxin.