11.9.08

Margen de error

Miren lo que le pasó a este empleado de Cablevisión.

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

2.9.08

Failure to communicate

The Captain interpretado por Strother Martin en Cool Hand Luke: