在VB中直接用ODBCAPI访问数据库

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

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

OptionExplicit
DimFileSysAsScripting.FileSystemObject

PrivateSubCmdExit_Click()
End
EndSub

PrivateSubDriveList_Change()
FolderList.Path=DriveList
EndSub

PrivateSubForm_Load()
DimIAsInteger
SetFileSys=NewScripting.FileSystemObject
FolderList.Path=Left(DriveList.Drive,2)&"\"
WithFileList.ColumnHeaders.Item(1)
.Alignment=lvwColumnLeft
.Text="文件名"
.Width=2000
EndWith
WithFileList.ColumnHeaders.Item(2)
.Alignment=lvwColumnRight
.Text="大小（KB）"
.Width=1500
EndWith
WithFileList.ColumnHeaders.Item(3)
.Alignment=lvwColumnLeft
.Text="类型"
.Width=1500
EndWith
WithFileList.ColumnHeaders.Item(4)
.Alignment=lvwColumnLeft
.Text="路径"
.Width=2000
EndWith
WithFileList.ColumnHeaders.Item(5)
.Alignment=lvwColumnLeft
.Text="修改时间"
.Width=2000
EndWith
EndSub

PrivateSubForm_Unload(CancelAsInteger)
SetFileSys=Nothing
EndSub

PrivateSubcmdSearch_Click()
DimSFolderStartAsScripting.Folder
SetSFolderStart=FileSys.GetFolder(FolderList.Path)
FileList.ListItems.Clear
AddFilesSFolderStart
IfFileList.ListItems.Count=0ThenMsgBox_
"没找到任何符合条件的文件！",vbOKOnly vbInformation,"提示信息"
EndSub

PrivateSubAddFiles(SFolderSearchAsScripting.Folder)
DimSFolderAsScripting.Folder
DimSFileAsScripting.File
DimsngFileSizeAsSingle
DimlngSizeAsLong
DimItmAsListItem
IfSubCheck.Value=1Then
IfSFolderSearch.SubFolders.CountThen
ForEachSFolderInSFolderSearch.SubFolders
AddFilesSFolder
NextSFolder
EndIf
EndIf
sngFileSize=FileSize*1000
ForEachSFileInSFolderSearch.Files
WithSFile
If.Size>=sngFileSizeAndIIf(FileName.Text<>"",_
InStr(.Name,FileName.Text)>0,True)Then
SetItm=FileList.ListItems.Add(Text:=.Name)
lngSize=.Size/1000
WithItm
.SubItems(1)=Format(lngSize,"#,###")
.SubItems(2)=SFile.Type
.SubItems(3)=SFile.ParentFolder
.SubItems(4)=SFile.DateLastModified
EndWith
EndIf
EndWith
NextSFile
SetItm=Nothing
SetSFolder=Nothing
EndSub
　运行后，选择相应目录，再在FileName文本框中输入要查找的文件名或文件名的一部分，然后再在FileSize文本框中输入文件的大小，按下搜索按钮即可搜索到相应文件。当然，这只是个功能较为简单的文件搜索器，有兴趣的读者可以使用Scripting.FileSystemObject对象的属性为其添加一些更为有用的功能。

　本例程序在VisualBasic4.0、Windows95环境下调试通过。
->