Visual Basic - Verificar existencia de un archivo

Life is soft - evento anual de software empresarial
 
Vista:

Verificar existencia de un archivo

Publicado por Daniel de Panama (1 intervención) el 13/06/2006 15:02:57
Buenos Dias. Necesito saber como puedo verificar la existencia de un archivo en Visual Basic 6.0,
Gracias.
Daniel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Verificar existencia de un archivo

Publicado por Javi RM (187 intervenciones) el 13/06/2006 17:36:44
Prueba con esto:

Private Const INVALID_HANDLE_VALUE = -1
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

........

Public Function ExisteArchivo(ByVal sFile As String) As Boolean
Dim WFD As WIN32_FIND_DATA
Dim hFindFile As Long

hFindFile = FindFirstFile(sFile, WFD)
'Si no se ha encontrado
If hFindFile = INVALID_HANDLE_VALUE Then
ExisteArchivo = False
Else
ExisteArchivo = True
'Cerrar el handle de FindFirst
hFindFile = FindClose(hFindFile)
End If
End Function

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Verificar existencia de un archivo

Publicado por jlcastro (186 intervenciones) el 13/06/2006 22:41:29
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Verificar existencia de un archivo MAS FACIL

Publicado por Daniel (61 intervenciones) el 15/06/2006 16:14:55
if dir$(archivo) = "" then
msgbox "No existe"
else
msgbox "Existe"
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Verificar existencia de un archivo MAS FACIL

Publicado por Pedro Ciancaglini (3 intervenciones) el 03/04/2008 17:41:45
Hola Muchachos/as: Estoy necesitando verificar la existencia de una archivo en la web y que me devuelva un valor true or False. podran ayudarme??

Saludos

Peter
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Verificar existencia de un archivo MAS FACIL

Publicado por Pedro Ciancaglini (3 intervenciones) el 03/04/2008 17:43:52
Hola Muchachos/as: Estoy necesitando verificar la existencia de una archivo en la web y que me devuelva un valor true or False. podran ayudarme??

Saludos

Peter
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Verificar existencia de un archivo MAS FACIL

Publicado por Pedro Ciancaglini (3 intervenciones) el 03/04/2008 17:45:01
Hola Muchachos/as: Estoy necesitando verificar la existencia de una archivo en la web y que me devuelva un valor true or False. podran ayudarme??

Saludos

Peter
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar