Autor Tema: Como Saber Si Existe Un Directorio (Leído 1403 veces)

ElNapster · « **en:** Viernes 1 de Diciembre de 2006, 16:56 »

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 ....

ElNapster

Gracias ...... ya lo he solucionado .....

F_Tanori

de nada

me preguntaba ¿porque no publicas la solucion?

pudiera ayudar a alguien mas

Aqui dejo una

Código: Text

Function ExisteCarpeta(sPath As String) As Boolean
On Error GoTo NoExiste
 
    GetAttr sPath
    ExisteCarpeta = True
 
Exit Function
 
NoExiste:
    ExisteCarpeta = False
End Function
 
Private Sub Command1_Click()
    If ExisteCarpeta(&#34;C:&#092;windows&#34;) Then
        MsgBox &#34;Existe&#34;
    End If
End Sub
 

Existen mas opciones

Saludos

ElNapster

Ok .... aca les va

Código: Text

Public Function PATH_verifica() As Boolean
'Validar si existe el directorio
ruta_path = PATH_IMPORTA.Text
If (Dir(ruta_path, vbDirectory)) &#60;&#62; &#34;&#34; Then
   PATH_verifica = True
Else
    PATH_verifica = False
    MsgBox &#34;El Directorio &#34; & ruta_path & &#34; no existe&#34;, vbCritical, &#34;Validar&#34;
    PATH_IMPORTA.SetFocus
End If
End Function
 

cpmario

Les comparto el que yo uso.

Código: Text

Public Function DirExists(sDir As String) As Boolean
    If sDir = &#34;&#34; Then
        DirExists = False
    End If
    On Error Resume Next
    DirExists = ((GetAttr(sDir) And vbDirectory) &#60;&#62; 0)
End Function
 

SoloCodigo

Autor Tema: Como Saber Si Existe Un Directorio (Leído 1403 veces)

ElNapster

Como Saber Si Existe Un Directorio

ElNapster

Re: Como Saber Si Existe Un Directorio

F_Tanori

Re: Como Saber Si Existe Un Directorio

ElNapster

Re: Como Saber Si Existe Un Directorio

cpmario

Re: Como Saber Si Existe Un Directorio