Miren lo que le pasó a este empleado de Cablevisión.
11.9.08
7.9.08
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
Publicadas por claus a las 11:45:00 1 comentarios
Etiquetas: tecnologia
2.9.08
Failure to communicate
The Captain interpretado por Strother Martin en Cool Hand Luke:
Publicadas por claus a las 10:07:00 0 comentarios
Etiquetas: videos
Suscribirse a:
Entradas (Atom)