findfile.bas

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

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:[e-mail]
'  编写日期：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