Visual Basic - Recorrer Carpetas

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 Settings\jadan\Escritorio\LogFiles"
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 :)

Si lo que deseas es recorrer las carpetas mi estimado, solo cambia lo siguiente:

Set fc = F.Files

por

Set fc = F.SubFolders

Al marcarlo como "Files" le indicas que busque todos los archivos, no las carpetas.

Saludos