Type and Function Declarations in LingoDeclaration.bas

LingoDeclaration.bas is a Visual Basic module that handles three tasks for the PT application's Lingo object:

• Declares global constants that the Lingo object uses.

  Option Explicit
  
  Public Const INVALID_HANDLE_VALUE = -1
  Public Const MAX_PATH = 260
  Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  

• Uses the Visual Basic Type statement to declare user-defined data types for the PT application. The Lingo object uses two user-defined types: FILETIME and WIN32_FIND_DATA. FILETIME is used exclusively as an element of WIN32_FIND_DATA.

  Type FILETIME
       dwLowDateTime As Long
       dwHighDateTime As Long
  End Type
  
  Type WIN32_FIND_DATA
       dwFileAttributes As Long
       ftCreationTime As FILETIME
       ftLastAccessTime As FILETIME
       ftLastWriteTime As FILETIME
       nFileSizeHigh As Long
       nFileSizeLow As Long
       dwReserved0 As Long
       dwReserved1 As Long
       cFileName As String * MAX_PATH
       cAlternate As String * 14
  End Type
  

• Declares the three Win32 API functions that the Lingo object uses.

  Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
        (ByVal lpFileName As String, _
        lpFindFileData As WIN32_FIND_DATA) As Long
  
  Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
        (ByVal hFindFile As Long, _
         lpFindFileData As WIN32_FIND_DATA) As Long
         
  Public Declare Function FindClose Lib "kernel32" _
        (ByVal hFindFile As Long) As Long
  

Handling the Files discusses how the code in the Lingo object uses declarations in LingoDeclaration.bas.