informacion sobre Dir
hola amigos
soy novato aun en el tema de visual basic
y necesito escribir un procedimiento que me permita recoger los subdirectorios de un directorio dado
para hacerlo, necesito obtener informacion sobre la instruccion Dir.
por favor, puede alguien darme informacion sobre la instruccion Dir en visual basic?
se lo agradeceria mucho, de veras
gracias anticipadas
soy novato aun en el tema de visual basic
y necesito escribir un procedimiento que me permita recoger los subdirectorios de un directorio dado
para hacerlo, necesito obtener informacion sobre la instruccion Dir.
por favor, puede alguien darme informacion sobre la instruccion Dir en visual basic?
se lo agradeceria mucho, de veras
gracias anticipadas
Dim gsCarpetaOrigen As String
Dim gsCarpetaDestino As String
gsCarpetaOrigen = "C:Prueba1"
gsCarpetaDestino = "C:Prueba2"
LsCdTemp = Dir$(gsCarpetaOrigen, vbDirectory)
Do While LsCdTemp <> ""
If Trim$(LsCdTemp) <> "." And Trim$(LsCdTemp) <> ".." Then
FileCopy gsCarpetaOrigen & LsCdTemp, gsCarpetaDestino & LsCdTemp
End If
LsCdTemp = UCase(Dir)
Loop
que tal el anterior Ejemplo recorre todo el contenido de la Carpeta Origen y lo copia a la Carpeta Destino.
Espero te sirva de algo..
Saludos
Dim gsCarpetaDestino As String
gsCarpetaOrigen = "C:Prueba1"
gsCarpetaDestino = "C:Prueba2"
LsCdTemp = Dir$(gsCarpetaOrigen, vbDirectory)
Do While LsCdTemp <> ""
If Trim$(LsCdTemp) <> "." And Trim$(LsCdTemp) <> ".." Then
FileCopy gsCarpetaOrigen & LsCdTemp, gsCarpetaDestino & LsCdTemp
End If
LsCdTemp = UCase(Dir)
Loop
que tal el anterior Ejemplo recorre todo el contenido de la Carpeta Origen y lo copia a la Carpeta Destino.
Espero te sirva de algo..
Saludos