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:
If FolderExis(Environ("HOMEDRIVE") & "\fotos") = False then MkDir(Environ("HOMEDRIVE") & "\fotos") end if
y esta es la funcion
Código:
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
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:
'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...
Autor
) 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:
En línea
