Recorrer Carpetas

pAsTa
03 de Octubre del 2005
Hola, lo q io qiero es, tngo unos archivos texto dentro de carpetas, que estas carpetas estan en una misma. Quiero recorrer las carpetas de la carpeta "madre" i copiar cada arxivo de texto de cada carpeta en un Servidor de copias q hay. Mi manera como tnia exo es asi:

Set fso = CreateObject ("Scripting.FileSystemObject")
ruta = "C:Documents and SettingsjadanEscritorioLogFiles"
Set F = fso.GetFolder(ruta)
Set fc = F.Files
For Each f2 in fc
name = f2.name
control=f2.Type
if control="Carpeta de archivos" then msgBox "Entro en carpeta" & name
end if
Next

El metodo ?.Type no me lo reconoze cn carpetas i si cn documentos de texto. Como puedo azer para q me reconozca cn las carpetas!?

Saludos i gracias :)
E

pakinyo
03 de Octubre del 2005
Y si en vez de utilizar ese objeto utilizas la funcion DIR?
Para mi es mas sencilla por lo menos y puedes determinar el tipo de elementos que quieres recorrer.