RE:Verificar existencia de un archivo
1ª verificar si existe un directorio
Private Sub Command1_Click()
a = Dir$("C:\Windows", vbDirectory)
If a = "" Then
MsgBox ("El directorio no existe!")
Else
MsgBox ("El directorio existe!")
End If
End Sub
2ª verificar si existe un archivo
create un proyecto con label1 , label2 y command1
y copia el siguiente codigo
en la propiedad caption del label 1 escribe Si Existe
en la propiedad caption del label 2 escribe No Existe
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function BuscarWin() As String
Dim Cadena As String
Dim Res As Long
Dim WinDir As String
Cadena = String$(300, Chr$(0))
Res = GetWindowsDirectory(Cadena, Len(Cadena)) 'Busca el directorio de Windows
WinDir = Left$(Cadena, Res)
If Right(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
BuscarWin = WinDir
End Function
Private Sub Command1_Click()
Dim X
Dim strRuta As String
strRuta = BuscarWin() & "system\prueba.txt"
On Error GoTo Fallo
X = GetAttr(strRuta)
Label1.Visible = True
Exit Sub
Fallo:
Label2.Visible = True
End Sub