Implementación del código utilizando el programa de modificación de lotes ASP, relacionado con FSO
Es algo pequeño que debe hacerse en lotes de modificaciones de código, y lo compartiré con usted.
Los tipos de archivos que se pueden procesar en la actualidad: .asp .inc .htm .html Los tipos específicos pueden ser modificados y agregados por usted mismo.
Funciones implementadas por el programa: Batch Modifique los archivos en el directorio de origen y guárdelos en el directorio de destino.
¡Algunas modificaciones pueden lograr muchas cosas!
No diré nada más, el código es muy claro
<%
'// +--------------------------------------------------------------------------- +
'// | Nombre del programa: modificador de lotes de código de piedra v1.01 |
'// | Todos los derechos reservados por las piedras de las otras montañas, ¡se seguirán la infracción! Indique los derechos de autor al reimprimir :) |
'// | ------------------------------------------------------------------------- |
'// | Sistema: Win2000; Editor: EditPlus; Herramienta de sangría: pestaña; Longitud de la sangría: 8; Font: Songti (10pt); |
'// | ------------------------------------------------------------------------- |
'// | Creador: WYC; Tiempo de creación: 2004-03-08; |
'// | Escritor: WYC; Escritor: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Servidor.scripttimeout = 500 'Tiempo de espera del script
'// +--------------------------------------------------------------------------- +
'// | Funciones de modificación por lotes |
'// | ------------------------------------------------------------------------- |
'// | Atributo: Directorio de archivo de origen Path_From Path_to Directorio de trabajo de archivo de destino |
'// | ------------------------------------------------------------------------- |
'// | Valor de retorno: ninguno |
'// | ------------------------------------------------------------------------- |
'// | Flujo del programa: ... |
'// | ------------------------------------------------------------------------- |
'// | Escritor: WYC; Tiempo de escritura: 2004-03-08; |
'// +--------------------------------------------------------------------------- +
Sub Midfile (Path_from, Path_to)
list_from = Path_from 'Storage El directorio de trabajo de origen actual
list_to = path_to 'almacenamiento El directorio de trabajo de destino actual
Establecer fso = createObject (scripting.filesystemObject)
Set pold = fso.getfolder (list_from) 'Objeto Get Carper Object
Establecer fc = fold.files 'Get File Registro establecido
Establecer mm = fold.subfolders 'Obtener el registro de directorio establecido
Para cada F2 en mm
establecer objfile = server.createObject (scripting.filesystemObject)
objfile.createFolder (path_to & / & f2.name) 'Crear directorio
Midfile Path_from & / & f2.name, Path_to & / & f2.Name 'Llamada recursiva
Response.Write Path_to & / & F2.Name & Terminada! <br>
Próximo
Para cada F1 en FC
file_from = list_from & / & f1.name 'Crear dirección de archivo (fuente)
file_to = list_to & / & & f1.name 'Crear dirección de archivo (a)
fileext = lcase (derecha (f1.name, 4)) 'Obtener tipo de archivo
Si fileext = .asp o fileext = .inc o fileext = .htm o fileext = html entonces 'El tipo específico puede modificarse y agregarlo usted mismo