在VB中直接用ODBC API访问数据库

　 从Windows 95开始，微软为我们提供了一个好用的文件搜索器。使用这个搜索器，我们可以方便快捷的查找到符合条件的文件。但有时我们在程序设计中也需要这一功能，能否在自己的程序中实现呢？答案当然是肯定的。下面我们就来着手设计一个VB程序中的文件搜索器。

　 首先，进入VB中，建立一个新的表单。在表单上建立一个驱动器列表框(DriveList)，一个目录列表框(FolderList)，一个检查框(SubCheck)，一个ListView控件(FileList)，两个文本框(FileName，FileSize)和两个按钮(cmdSearch，cmdExit)。需要注意的是ListView 控件是 Mscomctl.ocx 文件中一组 ActiveX 控件的一部分。若要在应用程序中使用 ListView 控件，必须将 Mscomctl.ocx 文件添加到工程中。选择ListView控件，点击鼠标右键，在弹出菜单中选择“属性”。在属性窗口的“列首”页中设置将要显示的列，连续按动“插入列”5次。排列好各控件的位置，然后加入以下代码：

Option Explicit
Dim FileSys As Scripting.FileSystemObject

Private Sub CmdExit_Click()
End
End Sub

Private Sub DriveList_Change()
FolderList.Path = DriveList
End Sub

Private Sub Form_Load()
Dim I As Integer
Set FileSys = New Scripting.FileSystemObject
FolderList.Path = Left(DriveList.Drive, 2) & "\"
With FileList.ColumnHeaders.Item(1)
.Alignment = lvwColumnLeft
.Text = "文件名"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(2)
.Alignment = lvwColumnRight
.Text = "大小（KB）"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(3)
.Alignment = lvwColumnLeft
.Text = "类型"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(4)
.Alignment = lvwColumnLeft
.Text = "路径"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(5)
.Alignment = lvwColumnLeft
.Text = "修改时间"
.Width = 2000
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set FileSys = Nothing
End Sub

Private Sub cmdSearch_Click()
Dim SFolderStart As Scripting.Folder
Set SFolderStart = FileSys.GetFolder(FolderList.Path)
FileList.ListItems.Clear
AddFiles SFolderStart
If FileList.ListItems.Count = 0 Then MsgBox _
"没找到任何符合条件的文件！",vbOKOnly vbInformation, "提示信息"
End Sub

Private Sub AddFiles(SFolderSearch As Scripting.Folder)
Dim SFolder As Scripting.Folder
Dim SFile As Scripting.File
Dim sngFileSize As Single
Dim lngSize As Long
Dim Itm As ListItem
If SubCheck.Value = 1 Then
If SFolderSearch.SubFolders.Count Then
For Each SFolder In SFolderSearch.SubFolders
AddFiles SFolder
Next SFolder
End If
End If
sngFileSize = FileSize * 1000
For Each SFile In SFolderSearch.Files
With SFile
If .Size >= sngFileSize And IIf(FileName.Text < > "", _
InStr(.Name, FileName.Text) > 0, True) Then
Set Itm = FileList.ListItems.Add(Text:=.Name)
lngSize = .Size / 1000
With Itm
.SubItems(1) = Format(lngSize, "#,###")
.SubItems(2) = SFile.Type
.SubItems(3) = SFile.ParentFolder
.SubItems(4) = SFile.DateLastModified
End With
End If
End With
Next SFile
Set Itm = Nothing
Set SFolder = Nothing
End Sub
　 运行后，选择相应目录，再在FileName文本框中输入要查找的文件名或文件名的一部分，然后再在FileSize文本框中输入文件的大小，按下搜索按钮即可搜索到相应文件。当然，这只是个功能较为简单的文件搜索器，有兴趣的读者可以使用Scripting.FileSystemObject对象的属性为其添加一些更为有用的功能。

　 本例程序在Visual Basic 4.0、Windows 95环境下调试通过。

上一篇： Excel、Access、VB的结合应用
下一篇： 处理加了密码的MDB文件

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有