A handy module to connect to and disconnect from network locations. Module ‘Create a Module named ModNetUseOption Explicit Public Declare Function WNetAddConnection2 Lib “mpr.dll” Alias “WNetAddConnection2A” _(lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUsername As String, _ByVal dwFlags As Long) As Long Public Declare Function WNetCancelConnection2 Lib “mpr.dll” _Alias “WNetCancelConnection2A” (ByVal lpName As String, ByVal dwFlags As… Read More »

Extract either a filename or path from a fully qualified pathname. Module Option Explicit Public Function ParsePath(strFullPathName As String, ReturnType As Integer, Optional StripLastBackslash) As String” Returns: Either the path or filename of a fully qualified pathname.’ See below for details.” Called with:’ strFullPathName – STRING (REQUIRED) – the full path and file name of interest’ If strFullPathName… Read More »

A simple way of determining if a file exists. Simply pass it a full path and filename, and it will tell you if it exists, and whether or not it is a zero-byte file. Module Function FileExists(strFile As String) As Integer’********************************************************************************’* Name : FileExists’* Date : Feb-17, 2000’* Author : David Costelloe’* Returns : -1 = Does not… Read More »

This module will show you how to get the file version number of an executable file, given a full path and filename, using Windows API. Module Option Explicit Private Declare Function GetLocaleInfoA Lib “kernel32.dll” (ByVal lLCID As Long, ByVal lLCTYPE As Long, ByVal strLCData As String, ByVal lDataLen As Long) As LongPrivate Declare Sub lstrcpyn Lib “kernel32.dll” (ByVal… Read More »

Using the EnumPorts API, you can list the ports on a local or remote PC with this code. Module Option Explicit ‘API callsPrivate Declare Function EnumPorts Lib “winspool.drv” Alias “EnumPortsA” (ByVal pName As String, ByVal Level As Long, ByVal lpbPorts As Long, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As LongPrivate Declare Function lstrlenW Lib… Read More »

Using API from Kernel32, this code will show you information about the serial or COM ports on the local computer. Module Option Explicit ‘API DeclarationsPublic Declare Function CreateFile Lib “kernel32.dll” Alias “CreateFileA” (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As… Read More »

The NetGetDCName function returns the name of the Primary Domain Controller (PDC) or PDC Emulator for the specified domain. Module Option Explicit’API callsPrivate Declare Function NetGetDCName Lib “netapi32.dll” (ServerName As Any, DomainName As Any, lpBuffer As Long) As LongPrivate Declare Function NetApiBufferFree Lib “netapi32.dll” (ByVal pBuffer As Long) As Long Private Declare Sub CopyMem Lib “kernel32.dll” Alias “RtlMoveMemory”… Read More »

This is sort of like the old DOS command NET SEND, allowing you to send messages to other users in your network. Module Option Explicit Private Declare Function NetMessageBufferSend Lib “netapi32.dll” _(ByVal servername As String, _ByVal msgname As String, _ByVal fromname As String, _ByVal Buffer As String, _ByVal BufSize As Long) As Long Private Const NERR_SUCCESS As Long… Read More »

This is a small little bit code that will rip out all the string in a file. Start a new program and place this code in to the General Declarations select of the Form. Also you will need to add a command button to the form as well. Then press F5. Module Public Sub sDumpStrings(strFile As String, strTextFile… Read More »

Probably the simplest of compression methods, run length encoding might be useful in helping you store large amounts of repetitive data. Start a new project and add two command buttons to the form and aslo a text box. Now place the follwing code below in to the general declarations selecion of the form and press 5F. Press the… Read More »