ver si existe una carpeta

ugenux
16 de Julio del 2004
¿Que código puedo incluir en mi programa para ver si existe una carpeta c:temp en mi disco duro?

sdemingo
16 de Julio del 2004
Dim fs as object
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("c:temp") Then
'La carpeta existe
Else
'La carpeta no existe
End If

salu2
sdemingo

ugenux
16 de Julio del 2004
Funciona correctamente mucha gracias, pero una salvedad, como sería si quiero poner un nombre de carpeta como este c:temp ***, es decir, las carpetas puedan ser temp 01, temp 02,.

sdemingo
16 de Julio del 2004
Hola,

utiliza para ello un contador
Dim i As Integer

For i = 1 To 10
If fs.FolderExists("c:temp " & i) Then
'Existe
Else
'No Existe
End If
Next i

salu2
sdemingo