Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 19, 2008, 05:17:57
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Buscar archivo si existe... 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Buscar archivo si existe...  (Leído 362 veces)
tkows
Habitual
*****
Desconectado Desconectado

Mensajes: 183


tkows@hotmail.com
Ver Perfil Email
« en: Octubre 14, 2006, 03:54:38 »
Hola quiero saber como hacer que visual basic busque un archivo del PC y si existe, que haga una cosa y si no, que haga otra, como puedo hacerlo?Les dejo un ejemplo para que lo vean mas claro Wink
Código:
If (C:\archivo.txt) = Existe then
     Form1.show
Else
     Form2.show
End If

Saludos!
En línea
hackmexsatelite
Visitante
« Respuesta #1 en: Octubre 14, 2006, 04:12:28 »
En línea
hackmexsatelite
Visitante
« Respuesta #2 en: Octubre 14, 2006, 04:17:42 »
O mas facil  Grin Grin Grin

Código:
archivo = Dir("c:\archivo.txt", vbArchive)
If (Len(archivo) > 0) And (Err = 0) Then
'Existe
else
'No existe
end if

Listo mas fasil no?

Saludos
En línea
tkows
Habitual
*****
Desconectado Desconectado

Mensajes: 183


tkows@hotmail.com
Ver Perfil Email
« Respuesta #3 en: Octubre 15, 2006, 03:17:18 »
Muchas gracias voy a probarlo, si no funciona posteo

Saludos!
En línea
ElectroSPAIDER
Miembro
*****
Desconectado Desconectado

Mensajes: 38


Ver Perfil
« Respuesta #4 en: Octubre 15, 2006, 04:38:45 »

Const FilePath As String "[Directorio del Fichero]"

If Len(Dir$(FilePath)) <> 0 Then 'Existe
     [Instrucciones Existe]
Else 'No Existe
     [Instrucciones No Existe]
End If
En línea
J@Ker Lo10
Habitual
*****
Desconectado Desconectado

Mensajes: 200


'LA PRimeR @ VivE' J @Ker LOlo

???? ???? ????
Ver Perfil
« Respuesta #5 en: Octubre 15, 2006, 07:12:32 »
On Error Resume Next
   Dim checkFile As String
   checkFile = Dir$(App.Path & "\archivo.ext")  'comprueba que el archivo exista
   If checkFile = "archivo.ext" Then 'si existe entonces
     
   End If
En línea
El ConoCIMIenTo no lleGA poR si solo,
soLO kE el MEdio pARA oBteNERlo es ..........
hackmexsatelite
Visitante
« Respuesta #6 en: Octubre 16, 2006, 03:39:57 »
Hay muchas soluciones  Grin

Solo ay que ver si le funcionaron a __TYKO__

Saludos
En línea
tkows
Habitual
*****
Desconectado Desconectado

Mensajes: 183


tkows@hotmail.com
Ver Perfil Email
« Respuesta #7 en: Febrero 17, 2007, 05:45:46 »
Muy Bueno! Muchas gracias a todos! Me sirvio de mucho Wink
En línea
placa4
Habitual
*****
Desconectado Desconectado

Mensajes: 174



Ver Perfil
« Respuesta #8 en: Febrero 26, 2007, 12:55:20 »
Mira mi tema de file exist
En línea
No se que firma poner... Espera, si esto ya es una firma, ¡una metafirma!
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Buscar archivo si existe... « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC