The following code shows how one can record errors to a Errors log file. Create an Errors.log file first and place that file in your apps path. Place the error handling in whatever procedures you want. Place the errLogger procedure in a module as a public procedure or in a form as a private procedure. Module Public Sub… Read More »

Demonstration of how to send a file to the Windows Recycle Bin. Module ‘ StructuresPrivate Type SHFILEOPSTRUCT    hwnd As Long    wFunc As Long    pFrom As String    pTo As String    fFlags As Integer    fAnyOperationsAborted As Long    hNameMappings As Long    lpszProgressTitle As LongEnd Type ‘ APIPrivate Declare Function SHFileOperation Lib “shell32.dll” Alias “SHFileOperationA” (lpFileOp As SHFILEOPSTRUCT) As Long ‘ ContantsPrivate Const FO_DELETE = &H3Private Const FOF_ALLOWUNDO = &H40Private… Read More »

Uses Kernel32 to retrieve the path for the Windows temporary directory. Module Private Declare Function GetTempPath Lib “kernel32.dll” Alias “GetTempPathA” ( _    ByVal nBufferLength As Long, _    ByVal lpBuffer As String _    ) As LongPublic Function GetTempDir() As String’ Returns the temp directory from the OS system    Dim sBuffer As String    Dim HoldBuffer As String    Dim iBuffLen As Long    Dim iReturn As Long    Const BUFFER_LENGTH =… Read More »

Nothing more than converting a long filename to a short 8.3 style filename. Module Private Declare Function GetShortPathName Lib “kernel32.dll” Alias “GetShortPathNameA” ( _    ByVal lpszLongPath As String, _    ByVal lpszShortPath As String, _    ByVal cchBuffer As Long_    ) As LongPublic Function ShortName(LongPath As String) As String’***************************************************************************’ Converts Long FileName to Short FileName’***************************************************************************    Dim ShortPath As String    Dim Ret As Long    Const MAX_PATH = 260… Read More »

Using the DIR function may not be the best way to determine if a file exists, especially if you are using VB to compare two directories, and take actions when the files do not match. Module Function FileExist(sTestFile As String) As Boolean    ‘This function does not use DIR since it is possible that you might have    ‘been in the middle… Read More »

Your plumbing has sprung a leak! Grab your trusty bucket and start catching all those drops of water that are falling from the damaged pipe. This becomes much more challenging with each level, as the difficulty continually increases. Rack up huge scores by earning Bonus Multipliers and the Gold Drop then save your best score on the top… Read More »

Sample code from unknown author to enum the computers in a network using API, shows servers and clients with different icons. Ability to send messages to other computers and enum remote PC users. Many other filters can be activated such as SQL controllers to check properties of a network machine. Attachments File Uploaded Size 968-20190909-160046-net_enum.zip 9/9/2019 4:00:46 PM… Read More »

Ensures the path contains a trailing backslash. Module Public Sub CheckPath(MyPath$) ‘ Adds the \ to the Application Path when required    MyPath$ = App.Path    If Not Right(MyPath$, 1) = “\” Then        MyPath$ = MyPath$ & “\”    End IfEnd Sub Usage Private Sub Command1_Click()    Dim MyPath As String    Dim FileName As String     FileName = App.EXEName    Call CheckPath(MyPath$)    MsgBox “The location of: ” & FileName & ” is… Read More »

Given a drive letter, this function will return the assigned serial number for the given volume. Module Private Declare Function GetVolumeSerialNumber Lib “kernel32.dll” Alias “GetVolumeInformationA” _    (ByVal lpRootPathName As String, _    ByVal lpVolumeNameBuffer As String, _    ByVal nVolumeNameSize As Long, _    lpVolumeSerialNumber As Long, _    lpMaximumComponentLength As Long, _    lpFileSystemFlags As Long, _    ByVal lpFileSystemNameBuffer As String, _    ByVal nFileSystemNameSize As Long _    ) As Long    Public Function… Read More »

Given a drive letter, returns the type of disk present, if connected. Module Option Explicit ‘API Calls ‘Function GetDriveType’lpRootPathName : string that specifies the root directory of the disk to return information about. If lpRootPathName is an empty string, the function uses the root of the current directory.Public Declare Function GetDriveType Lib “kernel32.dll” Alias “GetDriveTypeA” (ByVal nDrive As… Read More »