home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD4466422000.psc / FileSearch / FileSearcher.bas < prev    next >
Encoding:
BASIC Source File  |  2000-04-02  |  1.1 KB  |  41 lines
  1. Attribute VB_Name = "MyBas"
  2. 'Thank You for downloading my FileSearching entry
  3.  
  4. 'Please email me your Questions on anything in here or comments as well
  5.  
  6. 'My E-Mail = Mike_3D@hotmail.com
  7.  
  8.  
  9.  
  10. Option Explicit
  11.  
  12. Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  13. Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  14. Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  15.  
  16. Public Const MAX_PATH = 260
  17.  
  18. Type FILETIME
  19.   dwLowDateTime As Long
  20.   dwHighDateTime As Long
  21. End Type
  22. Type WIN32_FIND_DATA
  23.   dwFileAttributes As Long
  24.   ftCreationTime As FILETIME
  25.   ftLastAccessTime As FILETIME
  26.   ftLastWriteTime As FILETIME
  27.   nFileSizeHigh As Long
  28.   nFileSizeLow As Long
  29.   dwReserved0 As Long
  30.   dwReserved1 As Long
  31.   cFileName As String * MAX_PATH
  32.   cAlternate As String * 14
  33. End Type
  34.  
  35. Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  36. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  37.  
  38.  
  39.  
  40.  
  41.