Visual Basic - Dir

Life is soft - evento anual de software empresarial
   
Vista:

Dir

Publicado por JOHN BERMUDEZ (3 intervenciones) el 11/03/2010 18:59:30
Quisiera saber para que me sirve esta instrucción Dir, y como la uso?...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
Imágen de perfil de A.H.H

RE:Dir

Publicado por A.H.H (116 intervenciones) el 11/03/2010 20:02:53
Entre otras cosas sirve para saber si existe una carpeta, si existe un archivo, si existe un archivo dentro de una carpeta,si existe una ruta..........
un ejemplo para saber si existe una carpeta:
cuando buscas directorios se pone vbDirectory, cuando son archivos se pone vbArchive, cuando buscas archivos ocultos se pone vbHidden.......................

Private Sub Command1_Click()
If Dir("C:\prueba", vbDirectory) <> "" Then
MsgBox "la carpeta prueba existe"
Else
MsgBox "la carpeta prueba NO EXISTE"
End If
End Sub

normalmente si no existe la ruta , dir nos devuelve un valor vacio, entonces en el ejemplo decimos, que si la ruta dada es distinto de "" osea que no esta vacio es que la ruta existe.

para un archivo dentro de una carpeta:

Private Sub Command1_Click()
If Dir("C:\prueba\texto.txt", vbArchive) <> "" Then
MsgBox "El archivo texto.txt existe"
Else
MsgBox "El archivo texto.txt NO EXISTE"
End If
End Sub

puedes usar una variable para meter la ruta a la carpeta o archivo

dim ruta as string
ruta=("C:\prueba\texto.txt")
if Dir(ruta,vbArchive)<>"" then
............
.........

puedes usar comodin de asterisco para saber si hay archivos dentro de una carpeta de cualquier tipo de extension.

Dim ruta As String
ruta = "C:\prueba\*.*"
If Dir(ruta, vbArchive) <> "" Then
msgbox "la carpeta contiene archivos"
else
msgbox "la carpeta NO contiene archivos"
........
....

bueno esto son solo algunas cosillas que se pueden hacer con Dir aunque podrias hacer muchas mas

te dejo este enlace para que eches un vistazo:

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#dir

salu2
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