Visual Basic - AYUDENME POR FAVOR ... es URGENTE

Life is soft - evento anual de software empresarial
 
Vista:

AYUDENME POR FAVOR ... es URGENTE

Publicado por NORMA (52 intervenciones) el 31/05/2002 18:20:03
COMO PUEDO VERIFICAR SI UN ARCHIVO EXISTE EN DETERMINADA RUTA POR EJEMPLO QUIERO SABER SI EL ARCHIVO prueba.txt EXISTE EN LA RUTA C:\ EXAMEN \
SI NO EXISTE VOY A MANDAR UN MSG DE QUE NO EXISTE PERO SI ES QUE EXISTE VOY A ENVIAR UN MSG DE QUE EXISTE ¿COMO HAGO ESTO?
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:AYUDENME POR FAVOR ... es URGENTE

Publicado por Genaro (31 intervenciones) el 31/05/2002 21:25:27
Hay muchas formas de hacerlo.

Si es sólo una vez que lo vas ha hacer
>>> utiliza la funcion dir()
Si vas a verificar muchas veces dentro de tu aplicación la existencia de archivos, te sugiero que lo hagas a nivel de un module.
En la sección de declaraciones pones:

Global sysDir As String
Global Smusic As String
y luego puedes hacer la llamada desde tus formas ó de tu main

sub main()

sysDir = String(40, Chr(0)) 'limpia el string
GetSystemDirectory sysDir, 40 ' lee el directorio system de windows
sysDir = Left(sysDir, InStr(1, sysDir, Chr(0), vbBinaryCompare) - 1)

Smusic = sysDir & "\fincl_02.mid" 'buscando el archivo

Marcver = Dir(Smusic) 'pasa el resultado a una variable

'si la variable no esta vacia
if len(Marcver)>0 then
Open nIni For Input As #
else
msgbox "No existe archivo de música"m,vbCritical,"aviso"
end if

Espero te sirva.
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:MUCHISIMAS GRACIAS GENARO ME AYUDASTE MUCHO!!!!

Publicado por Norma (52 intervenciones) el 31/05/2002 22:52:28
MUCHISIMAS GRACIAS GENARO!!!!
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