Detectar archivos con VB6 |
2008-05-24 17:05 - Respuestas: 4 - Tema nº: 2520541
Características: Windows XP Home 512, pentium 4, 80 Gb.
Buenos días, me gustaría saberel código necesario en VB6 para saber si un archivo existe o no, estableciendo por ejemplo, que si sí existe, muestre un mensaje.
Saludos, Wislow.
| | |
|
|
Re: Detectar archivos con VB6 - 2008-05-27 19:52 - Respuesta 2
Con la siguiente función:
Rem Verifica si existe o no el archivo
Rem F=Nombre de archivo
Rem Regresa TRUE si existe o FALSE si no existe
Function FileExist(ByVal F as string) as Boolean
Dim D as String
D=Dir$(F)
FileExist= (D"")
End Function
Con el siguiente código envías un mensaje si el archivo existe....
Rem Envías un mensaje si existe un archivo
Rem F=Nombre de archivo
Rem M=Mensaje a enviar
Sub IfFileExist(ByVal F as String, ByVal M as String)
If FileExist(F) then Msgbox M
End Sub
Saludos 
HURRICANE
| |  |  | (0 v.) | | |
|
| |
|
|
Re: Detectar archivos con VB6 - 2008-05-27 19:54 - Respuesta 3
Corrección de la primera función:
Rem Verifica si existe o no el archivo
Rem F=Nombre de archivo
Rem Regresa TRUE si existe o FALSE si no existe
Function FileExist(ByVal F as string) as Boolean
Dim D as String
D=Dir$(F)
FileExist= Not (D="")
End Function
Saludos
HURRICANE
| | | | (0 v.) | | |
|
| |
|
|
Re: Detectar archivos con VB6 - 2008-05-30 16:58 - Respuesta 4
Gracias por tu respuesta, lo que me planteas tiene buena pinta. Este fin de semana si tengo un poco de tiempo lo probaré. Saludos. Wislow. | | | | (0 v.) | | |
|
| |
|
|
Re: Detectar archivos con VB6 - 2008-06-23 09:38 - Respuesta 5
Hola de nuevo Hurricane, ya he estado probando el código que me propusistes, no me funciona, pero creo que el problema es una tontería que probablemente se deba a un error mío. En definitiva, lo que quería preguntarte mayormente es si en el nombre del archivo coloco o no su ruta, o sólo su nombre.
Saludos, Wislow. | | | | (0 v.) | | |
|
| |
|
|
|
|
|
