a alguien le sirve esta funcion?

[ricardovinzo]

bueno estaba viendo un modulo que poste un user en otro foro (cd ) y bueno tiene una funcion para detectar si las carpetas excisten pero a mi no me funciona osae no tira error ni nada solo que no me funciona este code observen:

Código [Seleccionar] Expandir

If FolderExis(Environ("HOMEDRIVE") & "\fotos") = False then
     MkDir(Environ("HOMEDRIVE") & "\fotos")
end if

y esta es la funcion

Código [Seleccionar] Expandir

Public Function FolderExis(ByVal folder As String) As Boolean
If Dir(folder, vbDirectory) = "" Then
    FolderExis = False
        Else
    If Dir(folder, vbDirectory) <> "" Then
        FolderExis = True
    End If
End If
End Function

alguna idea porque no sirve?

[naderST]

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    If FolderExists("C:\WINDOWS") = True Then
        MsgBox "Existe"
    Else
        MsgBox "No existe"
    End If
End Sub

Private Function FolderExists(ByVal Folder As String) As Boolean
    If Dir(Folder, vbDirectory) = "" Then
        FolderExists = False
    Else
        FolderExists = True
    End If
End Function


[cassiani]

Tiene un IF de más... 

Si no es igual a "" obviamente es diferente, pero y con todo eso funciona (a simple vista)...

[juancho77]

Código [Seleccionar] Expandir

If FolderExis[b]TS[/b](Environ("HOMEDRIVE") & "\fotos") = False then
     MkDir(Environ("HOMEDRIVE") & "\fotos")
end if

a tu codigo le falta una TS, supongo que no sera eso no??¿ 

[cassiani]

No me digas que... 

Si te parece que el IF no esta demás pooss nada que hacer, el hecho de que NO te de error NO significa que este bien programado, además, en todo caso un ElseIf seria lo ideal...

Código [Seleccionar] Expandir

'incorrecto
If i = 0 Then
    'code
Else
    If i <> 0 Then 'obvio :-\
        'code
    End If
End If

'correcto
If i = 0 Then
    'code
Else
    'code
End If


Pero creo que te saltaste el flujo... de todas formas cada quien programa como quiere, se que dijiste que eso no lo hiciste tu, pero igual...

[seba123neo]

porque no usas api y listo??

Código [Seleccionar] Expandir

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

saludos.