code292a.txt

VB大全（精华版）源代码

Option Explicit
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Const MAX_PATH = 260
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

Private Function FindMatch(ByVal Path As String) As Long
  Dim ReturnVal As Long
  Dim File_Data As WIN32_FIND_DATA
  
  ReturnVal = FindFirstFile(Path, File_Data)
  If ReturnVal <> 0 Then
    Debug.Print File_Data.cFileName
    Debug.Print File_Data.cAlternate
  Else
    Debug.Print "Not Found."
  End If
  FindMatch = ReturnVal
End Function

Public Sub Main()
  Dim File_to_Look_For As String
  Dim Result As Long

  File_to_Look_For = "c:\*.ini"
  Result = FindMatch(File_to_Look_For)
End Sub