‘ Create a nested directory” This is similar to the MkDir command, but it creates any’ intermediate directory if necessarySub MakeDirPath(dirname As String) Dim i As Long, path As String
Private Declare Function FormatMessage Lib “kernel32” Alias “FormatMessageA” _ (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, _ ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal
Private Declare Function SearchPath Lib “kernel32” Alias “SearchPathA” (ByVal _ lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, _ ByVal nBufferLength As Long, ByVal lpBuffer As String,
Before I continue, I’d like to state up front thatnothing in this article should be construed as casting Windows 2000 / COM+ in anegative light. On the contrary, I’ve seen
Private Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_SETDESKWALLPAPER = 20′
Private Declare Function GetModuleFileName Lib “kernel32” Alias _ “GetModuleFileNameA” (ByVal hModule As Long, ByVal lpFileName As String, _ ByVal nSize As Long) As LongPrivate Declare Function GetModuleHandle Lib “kernel32” Alias