Visual Basic - AYUDA POR FAVOR !! URGENTE

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA POR FAVOR !! URGENTE

Publicado por RICARDO (50 intervenciones) el 23/08/2004 19:05:19
ALGUIEN SABE COMO ELIMINAR UN ARCHIVO(CUALQUIERA) QUE ESTE CONTENIDO EN CUALQUIER CARPETA DEL DISCO DURO, SIN DECIRLE LA RUTA, ES DECIR, QUE LO BUSQUE POR TODO EL DISCO DURO.
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:AYUDA POR FAVOR !! URGENTE

Publicado por ruri (583 intervenciones) el 29/08/2004 06:57:39
Ricardo:
Se utiliza la función Dir. La ayuda trae un ejemplo de como utilizarla para recorrer un directorio. Lo que debés hacer es crear una sub a la que le pasás un path y llena una matriz con los directorios contenidos en el path, pensemos que se llama ObtenerDirectorios. Luego una función que busque el archivo en el directorio que le pasás, por ejemplo llamémosla EstaElArchivo. Si inicias la matriz con el directorio C:\, podés hacer lo siguiente:

Dim M() as string, k as long, sPath as string
Redim Preserve M(0) as string
M(0)="C:\"
k=-1
do
k=k+1
ObtenerDirectorios M(k)
if EstaElArchivo(M(k) & "\Archivo.extension")=true then sPath = M(k) & "\Archivo.extension": exit for
loop until k=ubound(m)
if sPath<>"" then
msgbox "El archivo está en: " & vbcrlf & spath
else
msgbox "Archivo no encontrado"
End if

Saludos Ruri
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