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

2018-06-17 17:12:25来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

从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环境下调试通过。
->

标签:

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

上一篇:计算两个日期间的工作日

下一篇:在VB中调用API函数动态改变及恢复屏幕设置