Buscar Archivos y Carpetas
Necesito buscar archivos y carpetas en Vb6, espero que puedan ayudarme, Gracias
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
' 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