Visual Basic - abrir archivo en VB6

Life is soft - evento anual de software empresarial
   
Vista:

abrir archivo en VB6

Publicado por Pepe (4 intervenciones) el 10/04/2011 18:01:12
Hola

Tengo la siguiente duda. He creado un programilla que me abre un archivo .htm cuyo nombre se lo meto mediante atributos de dicho programa. Ejemplo

Si ejecuto el programa1.exe 123456 me abre el archivo 123456.htm de una hubicacion ya especificada.

El problema que tengo es que no se como hacer que me salga un mensaje de error si no exixte el archivo a abrir.

Aqui os pongo el codigo usado:

Public Sub EjecutarArchivos(Direccion As String)
Dim ret As Variant
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Direccion), 1)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error de Ejecución"
End Sub
--------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim valor As String
valor = Command
valor = "c:\" & valor & ".htm"
Text1.Text = valor
EjecutarArchivos valor
End Sub

El problema es que aunque el archivo no exista, no me sale el mensaje de error, simplemente me muestra el contenido de valor en el text 1 y ya.

Espero que alguien me ayude.
Saludos
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

abrir archivo en VB6

Publicado por Vicente (26 intervenciones) el 19/04/2011 02:11:58
Puedes utilizar lo siguiente:
dim lcArchivo as string

If ExisteArchivo(lcArchivo) Then
tu codigo...bla..bla..bla
else
msgbox "Archivo no existe",vbinformation,"Aviso"
endif
end sub


privateFunction ExisteArchivo(ByVal Archivo As String) As Boolean
ExisteArchivo = Dir(Archivo) <> vbNullString
End Function


Suerte !!!
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

abrir archivo en VB6

Publicado por Pedro Luis (128 intervenciones) el 11/04/2011 11:49:22
Usa la función Dir, si función Dir devuelve "" el fichero no existe.
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

abrir archivo en VB6

Publicado por Pepe (4 intervenciones) el 11/04/2011 19:33:34
Gracias Pedro Luis, lo probare.

Muchas gracias
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