kenavik
20 de Enero del 2006

Quiero usar el file system object para listar todos los archivos de un directorio incluyendo sus subdirectorios...

alguien sabe si se puede hacer en ASP?

Tengo una versión que me lo hace bien pero solo me funciona para directorios de hasta 3 niveles y quiero hacer una versión que me funcione para cualquier número de niveles...
un saludo
kenavik

kenavik
20 de Enero del 2006

Al final me he tenido que currar una función a manopla pq no he encontrado nada por internete...

'función recursiva para hacer la busquedad de todos los ficheros del directorio principal incluyendo sus subdirectorios
Function RenameVirtualDirs(path)

Dim pFs
Dim folder, file, sub_folders, sub_files
dim arch
Set pFs = CreateObject("Scripting.FileSystemObject")
Set pFs2 = CreateObject("Scripting.FileSystemObject")



Set folder=pFs.GetFolder(path)
Set sub_folders = folder.subfolders
Set sub_files = folder.Files

for Each file in sub_folders

Set folder2=pfs2.GetFolder(file.path)
Set sub_folders2=folder2.subfolders
Set subfiles2=folder2.files
for Each arch In pFs2.GetFolder(file.path).Files
if pFs.GetExtensionName(arch.Path)="asp" then
'archivo que haremos el replace,antiguo directorio,nuevo directorio
RenameInclude arch.Path,antiguo_directorio,nuevo_directorio
end if
next
RenameVirtualDirs(file.path)

next


Set folder = nothing
Set sub_folders = nothing
Set pFs = nothing
End Function

un saludo
kenavik