Buscar Archivos y Carpetas

Hammett
05 de Marzo del 2004
Necesito buscar archivos y carpetas en Vb6, espero que puedan ayudarme, Gracias

rolo
05 de Marzo del 2004
Private VLman_arch As FileSystemObject

' antes de introducir es codigo debes irte al menu project/references y e ingresar el
' microsoft scripting runtime
' eso es para declarar el FileSystemObject
' espero que te sirva ese codigo, cualquiera cosa, vuelve a escribir


Private Sub Form_Load()

Dim VLPatch As String
Set VLman_arch = New FileSystemObject


VLPatch_files = "C:carpetaarchivo.txt"
VLPatch_folder = "C:carpeta"

' si quieres buscar un directorio
If VLman_arch.FolderExists(VLPatch_folder) Then
MsgBox "Directorio existe"
Else
MsgBox "Directorio no exite "
End If

' si quieres buscar un archivo
If VLman_arch.FileExists(VLPatch_files) Then
MsgBox "Archivo existe"
Else
MsgBox "Archivo no exite "
End If

End Sub




' Suerte Pana