Sección de códigos , trucos y ejemplos para visual basic

164 - Como verificar si un archivo existe

Contenido

Ejemplo 1 - Comprobar Con la api de windows
Ejemplo 2 - Comprobar utilizando FSO
Relacionados

Comprobar si existe un archivo o carpeta en Visual basic uasndo Apis

La siguiente función permite verificar si un archivo o directorio existe.

El ejemplo utiliza las funciones de windows FindFirstFile y FindClose. Si FindFirstFile retorna un número distinto de -1, entonces devuelve un handle válido de archivo ( es decir que se encontró). De lo contrario el Handle contendrá el valor -1 ( constante INVALID_HANDLE_VALUE ), donde la función retornará False.

Código fuente en el formulario

Option Explicit Private Const INVALID_HANDLE_VALUE = -1 Private Const MAX_PATH = 260 ' UDT para FindFirstFile Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type ' Apis para buscar ficheros Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFilename As String, lpFindFileData As WIN32_FIND_DATA) As Long ' retorna Verdadero si el archivo existe Public Function Existe(ByVal strFile As String) As Boolean Dim lHandle As Long ' Handle del archivo Dim wFD As WIN32_FIND_DATA ' udt con los datos ' Comprobar la barra separadora de path y la longitud If ((Len(strFile) > 3) And (Right$(strFile, 1) = "\")) Then strFile = Left$(strFile, Len(strFile) - 1) End If lHandle = FindFirstFile(strFile, wFD) ' buscar ' si el código del handle es válido ... Existe = lHandle <> INVALID_HANDLE_VALUE ' Liberar y cerrar el archivo con la función FindClose Call FindClose(lHandle) End Function

Usando FSO - Métodos FileExists y FolderExists

On Error GoTo err_sub Dim fso As Object 'Instanciar el objeto FSO para poder _ usar las funciones FileExists y FolderExists Set fso = CreateObject("Scripting.FileSystemObject") ' Comprobar archivo MsgBox fso.FileExists("c:\windows\notepad.exe") ' Comprobar directorio MsgBox fso.FolderExists("c:\windows\") MsgBox fso.FolderExists("c:\windows\system32") Set fso = Nothing Exit Sub err_sub: MsgBox Err.Description, vbCritical, "error al usar Fso"

Recursos vb.net - enlaces relacionados

Trabajar con archivos en visual basic.net

Recursos visual basic 6.0 - Enlaces relacionados

Enlaces sobre FSO - FileSystemObject

Buscar en Recursos vb