Visual Basic - Urgente Urgente Urgente

Life is soft - evento anual de software empresarial
 
Vista:

Urgente Urgente Urgente

Publicado por jlcastro (114 intervenciones) el 05/04/2002 19:44:31
Con este codigo sabemos si existe un fichero.

Private Sub Form_Load()
GetAttr("C:\fichero1") (Aqui necesito comprovar si existe el fichero2)
Exit Sub

Necesito que si existe en fichero1 y no existe el fichero2 salga este mensaje
MsgBox "El fichero1 existe."

pero si no existe en fichero1 y si existe el fichero2 salga este mensaje
MsgBox "El fichero2 existe."

Dicho de otra forma:
tengo que comprovar cual de los dos ficheros existe.

Muchisimas gracias
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:Urgente Urgente Urgente

Publicado por Eduardo (12 intervenciones) el 05/04/2002 22:56:46
La solucion es utilizar esta funcion, fijate como la manejas

te paso el codigo y espero te sirva

Private Function ExisteArchivo(sNombreArchivo As String) As Boolean
Dim AttrDev%
On Error Resume Next
AttrDev = GetAttr(sNombreArchivo)
If Err.Number Then
Err.Clear
ExisteArchivo = False
Else
ExisteArchivo = True
End If
End Function
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:Urgente Urgente Urgente

Publicado por jlcastro (114 intervenciones) el 06/04/2002 03:43:35
El codigo anterior funciona para comprobar un fichero, pero vuelvo a plantear nuevamente la pregunta

Al iniciar un form necesito reconocer el directorio de windows para hacer una operacion u otra:
Si existe el directorio Windows tiene que hacer una operacion.
Si existe el directorio winnt tiene que hacer otra operacion distinta
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:Todo esta solucionado

Publicado por jlcastro (114 intervenciones) el 06/04/2002 18:34:38
Muchas gracias por su ayuda
ya tengo solucionado el problema.
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