‘ Returns a collection with the names of all the executable’ files in a directory or a directory tree’ this includes all “exe”, “bat”, “com”, “pif” files” NOTE: Uses the
Option ExplicitPrivate Declare Function FindFirstFile Lib “kernel32” Alias “FindFirstFileA” _ (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPrivate Declare Function FindNextFile Lib “kernel32” Alias “FindNextFileA” _ (ByVal hFindFile As
At times you may need to create a GUID from ASP, for example when assigning unique IDs to users that are visiting your site for the first time. While you
‘ Get the names of all the installed Windows GetServiceNames using Active ‘ Directory” if you pass True, the display names are returned’ otherwise the internal names are returned’ (internal
Const MAX_PATH As Long = 260Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase
Const MAX_MODULE_NAmeInfo = 255Const MAX_PATH = 260Const TH32CS_SNAPMODULE = &H8Private Type MODULEENTRY32 dwSize As Long th32ModuleID As Long th32ProcessID As Long GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Long
Private Enum CommandOpConstants cocStart = 1 cocStop cocPause cocContinueEnd Enum’ Start, Stop, Pause or Continue a service using Active Directory’ Returns True if successful” NOTE: requires a reference to the
The standard way to create a UDL file is to right-click in the directory where you want to create it and select the New-Microsoft Data Link menu command. Unfortunately, on
‘ Copy a BLOB field’s contents to a binary file.Sub BlobToFile(fld As ADODB.Field, filename As String, _ Optional ChunkSize As Long = 8192) Dim fnum As Integer, bytesLeft As Long,