Crear Carpetas con API en VB6

Post tecnológico, para ayudar a quien todavia use VB6.

Sin utilizar FileSystemObject se pueden crear carpetas. (En otro post pondré como chequear si un archivo existe y otras funciones) llamando a una API.

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "IMAGEHLP.DLL" (ByVal DirPath As String) As Long

Public Function CrearCarpeta(ByVal strRuta As String) As Boolean

CrearCarpeta = False

If CrearRuta(strRuta) Then CrearCarpeta = True

End Function

Private Function CrearRuta(ByVal strRuta As String) As Boolean

strRuta = strRuta & IIf(Right(strRuta, 1) = "\", "", "\")

CrearRuta = False

If MakeSureDirectoryPathExists(strRuta) <> 0 Then CrearRuta = True

End Function