Attribute VB_Name = "FindFile"

' **********************************************************************
'  描  述：存vb代碼寫的winnap程序，非常酷
'  Play78.com : 網站導航，源碼之家，絕對開源
'  海闊天空收集整理
'  主站地址：http://www.play78.com/
'  源碼下載地址：http://www.play78.com/blog
'  圖片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:hglai@eyou.com
'  編寫日期：2005年08月30日
' **********************************************************************

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
'參數hFindFile:      FindFirstFile返回的句柄
Public Type FILETIME
        dwLowDateTime As Long '文件時間低32位
        dwHighDateTime As Long '文件時間高32位
End Type

Public Type WIN32_FIND_DATA
        dwFileAttributes As Long '指定查找到的文件屬性
        ftCreationTime As FILETIME '文件建立時的時間
        ftLastAccessTime As FILETIME '文件上次訪問的時間
        ftLastWriteTime As FILETIME '文件上次修改的時間
        nFileSizeHigh As Long '文件大小的高32位
        nFileSizeLow As Long '文件大小的低32位
        dwReserved0 As Long '
        dwReserved1 As Long '
        cFileName As String * 260 '以空終止符結束的文件名
        cAlternate As String * 14 '8.3格式
End Type
'dwFileAttributes的返回值
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20 '存檔
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800 '壓縮
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 '句柄指定一個目錄
Public Const FILE_ATTRIBUTE_HIDDEN = &H2 '隱藏
Public Const FILE_ATTRIBUTE_NORMAL = &H80 '一般
Public Const FILE_ATTRIBUTE_READONLY = &H1 '只讀
Public Const FILE_ATTRIBUTE_SYSTEM = &H4 '系統
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100 '臨時

Const WRONGHWND = -1 '查找不到返回的句柄


Public www As WIN32_FIND_DATA

Sub SearchFile(CurPath)
a = FindFirstFile(CurPath & "\*.mp3", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.wav", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.dat", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.mepg", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.mpg", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.avi", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If
a = FindFirstFile(CurPath & "\*.mov", www)
If a <> -1 Then
 Do
  Listfrm.List1.AddItem Left(www.cFileName, InStr(www.cFileName, ".") - 1)
  Listfrm.List2.AddItem CurPath & "\" & www.cFileName
 Loop While FindNextFile(a, www)
End If

End Sub