********************************
Muchas veces podríamos necesitar alguna parte del código que accedirá a todos los subcarpatas del servidor y también a todos
Archivos dentro del subcarpelo.
La siguiente línea de código ASP se asignará a una carpeta especificada y busca a todos los subcarpatas.
(No recursivamente, el código se puede extender para hacer) y lee todos los archivos (básicamente archivos de texto) Uno por uno.
Puede especificar cualquier nombre de carpeta, en las observaciones dadas en el código (dentro)
'Crear un objeto del sistema de archivos
Establecer FilesYstem = Server.CreateObject (scripting.filesystemObject)
Dim dbconn
FolderPath = Server.Mappath (ruta de carpeta principal)
establecer sfolder = filesSystem.getFolder (FolderPath) .SubFolders
para cada carpeta en sfolder
Establecer archivos = carpetiTem.files
Para cada archivo de archivo en archivos
fname = server.mappath (ruta principal de la carpeta y carpeta.name & / & fileitem.name
Establecer archivo = filesystem.opentextfile (fname, 1, falso)
while filt.atendofstream <> verdadero
registro = split (file.readline, ~)
encaminarse a
File.close
Filesystem.deleteFile (fname)
próximo
próximo
********************************