Programación General > Visual Basic 6.0 e inferiores
Mostrar Que Un Archivo Ha Sido Creado
lois_:
Hola, usando el FileSystemObject tienes un método que es FileExists para lo que dices tú, puedes usar algo parecido a esto:
--- Código: Text --- Dim FSO As ObjectSet FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists("C:\ruta\hacia\archivo.xls") Then MsgBox "¡El archivo exste!"End if
Espero que te sirva de ayuda, un saludo.
ArKaNtOs:
sugerencia:
porque no cuando generes el archivo validas si no hay error, si hay error pues es obvio que no se creo tu archivo jejejejeje
para verificar si hay un error lo haces hasta el principio del evento que valides y pones algo asi
Private Sub Command1_Click()
on error goto misalto
'codigo donde creas tu archivo
' y al final del evento puedes poner algo asi
'termina codigo donde creas tu archivo
exit sub
misalto:
msgbox "el archivo no pudo ser creado intente de nuevo o que se yo :P"
end sub
F_Tanori:
--- Cita de: "pedr0" ---Hola, perdon por no haberme expresado mejor :P. En una parte de mi programa se genera un archivo xls y lo que quiero es que acto seguido compruebe si el archivo ha sido creado correctamente indicandolo con un msgbox por ejemplo. Supongo que los tiros irán por donde indica F_Tanori, por que es bastante parecido a lo que quiero hacer, pero soy muy novato aún :P.
Muchas gracias por la ayuda....
--- Fin de la cita ---
El mas grande atributo de la programacion es que existen miles de manera de lograr algo algunas mas eficientes que otras pero.... de muchas formas depende de como ataques el problema
por una parte pienso que ArKaNtOs tiene razon puedes cachar el error y evitar hacer comprobaciones extras :)
pero incluso para saber si existe un archivo puedes hacer esto ...
--- Código: Text --- bExisteArchivo=Dir(ls_NombreRutaArchivo) <>"" if bExisteArchivo then MsgBox("","el archivo "& ls_NombreRutaArchivo &" Si Existe") end if
Navegación
[*] Página Anterior
Ir a la versión completa