Foros - Stratos

Programadores => General Programadores => Mensaje iniciado por: Sergio en 26 de Enero de 2003, 12:38:52 PM

Título: Ficheros en VB
Publicado por: Sergio en 26 de Enero de 2003, 12:38:52 PM
                                hola
estoy haciendo un sistema de records para un jueguecillo que he hecho en vb y necesito saber si un archivo existe. que funcion hay q usar???
gracias de antemano y un saludo                                
Título: Ficheros en VB
Publicado por: BeRSeRKeR en 26 de Enero de 2003, 02:13:35 PM
                                Prueba esto:

CitarIf Len(Dir$(rutaArchivo)) <= 0 Then
           ' El archivo no existe
       End If

Saludos                                
Título: Ficheros en VB
Publicado por: jaure en 26 de Enero de 2003, 02:25:21 PM
                                Tb puedes probar esto

Public function ExisteFichero(ByVal sRutaFichero as String) as Boolean
     Dim iCanal As Integer
     On Error goto etq1

     iCanal=FreeFile()
     Open sRutaFichero For Input As #iCanal

     Close #iCanal
     
     ExisteFichero=True
     Exit Function

etq1:
     ExisteFichero=False

End Function                                
Título: Ficheros en VB
Publicado por: Sergio en 26 de Enero de 2003, 04:22:42 PM
                                ok
muchas gracias!!
saludos!!