instrucción 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


0
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
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
dim ruta as string
ruta=("C:\prueba\texto.txt")
if Dir(ruta,vbArchive)<>"" then
............
.........
Dim ruta As String
ruta = "C:\prueba\*.*"
If Dir(ruta, vbArchive) <> "" Then
msgbox "la carpeta contiene archivos"
else
msgbox "la carpeta NO contiene archivos"
........
....