Hola Dani, yo tengo algo así:
Código:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set ArchivosDelDir = Carpeta.Files
Set Subcarpetas = Carpeta.SubFolders
For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
SubCPeso = Subcarpeta.Size 'esto está al dope porque no funciona :(
'acá hay ASP intercalado en HTML que no viene al caso
'pero la idea es mostrar las carpetas
Next
For Each Archivo in ArchivosDelDir
Archivos = Archivo.name
Peso = Archivo.Size 'esto si que funca ;)
'acá hay ASP intercalado en HTML que no viene al caso
'pero la idea es mostrar los archivos
Next