Programación General > Visual Basic 6.0 e inferiores

 Como Saber Si Existe Un Directorio

(1/1)

ElNapster:
Que tal a todos tengo un problemita, no logro sabre con el comando DIR si existe un directorio en la pc ??

Quiero saber si el Path que ingrese el usuario en un textbox existe ....

Gracias por la ayuda .... :comp:

ElNapster:
Gracias ...... ya lo he solucionado .....  :comp:

F_Tanori:
de nada :P



me preguntaba ¿porque no publicas la solucion?  :rolleyes:  pudiera ayudar a alguien mas ;)


Aqui dejo una



--- Código: Text ---Function ExisteCarpeta(sPath As String) As BooleanOn Error GoTo NoExiste     GetAttr sPath    ExisteCarpeta = True Exit Function NoExiste:    ExisteCarpeta = FalseEnd Function Private Sub Command1_Click()    If ExisteCarpeta("C:\windows") Then        MsgBox "Existe"    End IfEnd Sub 
Existen mas opciones :)

Saludos

ElNapster:
Ok .... aca les va


--- Código: Text ---Public Function PATH_verifica() As Boolean'Validar si existe el directorioruta_path = PATH_IMPORTA.TextIf (Dir(ruta_path, vbDirectory)) <> "" Then   PATH_verifica = TrueElse    PATH_verifica = False    MsgBox "El Directorio " & ruta_path & " no existe", vbCritical, "Validar"    PATH_IMPORTA.SetFocusEnd IfEnd Function 
 :kicking:
 :comp:

cpmario:
Les comparto el que yo uso.

--- Código: Text ---Public Function DirExists(sDir As String) As Boolean    If sDir = "" Then        DirExists = False    End If    On Error Resume Next    DirExists = ((GetAttr(sDir) And vbDirectory) <> 0)End Function  :comp:

Navegación

[0] Índice de Mensajes