2022年VISUALBASIC查询文件 .pdf

《2022年VISUALBASIC查询文件 .pdf》由会员分享，可在线阅读，更多相关《2022年VISUALBASIC查询文件 .pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、visual basic 查询文件Option ExplicitPrivate WithEvents Command1 As CommandButtonPrivate WithEvents List1 As ListBoxDim N,Id,FindNumber As LongDim FindPath(),FindName As StringPrivate Sub Command1_Click()FindName=InputBox(输入搜索的文件名。输入*表示所有。,提示)If FindName=Then Exit SubId=1FindNumber=0List1.ClearReDim Find

2、Path(Id)FindPath(Id)=InputBox(输入搜索的路径,提示)On Error GoTo cw1If Not(FindPath(Id)Like*)Then FindPath(Id)=FindPath(Id)+SetAttr FindPath(Id),vbNormalId=Id+1ReDim PreserveFindPath(Id)On Error GoTo cw2N=1While FindPath(N)FindFile(FindPath(N)N=N+1WendMsgBox 搜索完毕，已经找到+Str(FindNumber)+个相关文件,提示 Exit Subcw1:MsgB

3、ox 对不起，您输入的地址无效，请重新输入,错误提示 Exit Subcw2:MsgBox 对不起，在搜索过程中出现错误,错误提示 End SubSub FindFile(Path)Dim FileName As StringFileName=Dir(Path,31)While FileName If FileName=RECYCLEROr FileName=System Volume InformationThenElseIf FileName .And FileName .ThenIf GetAttr(Path+FileName)And vbDirectory ThenFindPath(I

4、d)=Path+FileName+Id=Id+1ReDim PreserveFindPath(Id)名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -ElseIf FindName=*ThenList1.List(List1.ListCount)=Path+FileNameFindNumber=FindNumber+1ElseIf InStr(FileName,FindName)0 ThenList1.List(List1.ListCount)=Path+FileNameFindNumber=FindNumber+1End IfEnd IfEnd IfEnd IfEnd

5、IfFileName=DirDoEventsWendEnd SubPrivate Sub Form_Load()Dim X0 As LongDim Y0 As LongSetCommand1=Controls.Add(vb.CommandButton,command1)SetList1=Controls.Add(vb.listbox,list1)Form1.Caption=FindWorkForm1.Height=7515Form1.Width=5025X0=Screen.WidthY0=Screen.HeightX0=(X0-Me.Width)/2Y0=(Y0-Me.Height)/2Me.

6、Move X0,Y0 让窗体居中List1.Height=6360List1.Left=120List1.Top=120List1.Width=4695List1.ClearList1.Visible=TrueCommand1.Height=375Command1.Left=120Command1.Top=6600Command1.Width=4695Command1.Caption=Start FindCommand1.Visible=TrueEnd Sub名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页 -Private Sub List1_DblClick()If M

7、sgBox(是否打开 +List1.List(List1.ListIndex)+?,vbYesNo,提示)=vbYes ThenShell cmd.exe/c start +List1.List(List1.ListIndex)+End Sub=以查找 D:下所有文件夹为例：在窗体上添加一个CommandButton，它的单击代码如下：Private Sub Command1_Click()mypath=D:将要查找的目录赋值给mypathMyName=Dir(mypath,vbDirectory Or vbHidden Or vbNormal Or vbReadOnly Or vbSyste

8、m)找到第一个入口，DIR 返回找到的第一个文件（文件夹）Do While MyName 开始循环If MyName .And MyName .Then 忽略当前目录和子目录确保变量MyName 取得的值是文件夹名If(GetAttr(mypath&MyName)And vbDirectory)=vbDirectory ThenPrint MyName在窗体上打印出找到的文件夹End IfEnd IfMyName=Dir得到下一个文件名LoopEnd Sub运行后单击命令按钮就可在窗体上显示出所有的文件夹Dir 函数返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模

9、式或文件属性、或磁盘卷标相匹配。语法Dir(pathname,attributes)Dir 函数的语法具有以下几个部分：部分描述pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到pathname，则会返回零长度字符串()。attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配pathname 但不包含属性的文件。名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 7 页 -设置值attributes 参数的设置可为：常数值 描述vbNormal 0(缺省)指定没有属性的文件。vbReadO

10、nly 1 指定无属性的只读文件vbHidden 2 指定无属性的隐藏文件VbSystem 4 指定无属性的系统文件vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolumevbDirectory 16 指定无属性文件及其路径和文件夹。注意这些常数是由VBA所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。说明Dir 支持多字符(*)和单字符(?)的通配符来指定多重文件。由于Macintosh 不支持通配符，使用文件类型指定文件组。可以使用MacID函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT 文件的名称:Dir(SomePa

11、th,MacID(TEXT)为选中文件夹中所有文件，指定一空串:Dir()在 Microsoft Windows 中，如果在Dir 函数中使用MacID 函数，将产生错误。任何大于 256 的 attribute 值都被认为是MacID函数的值。在第一次调用Dir 函数时，必须指定pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括pathname。Dir 会返回匹配pathname 的第一个文件名。若想得到其它匹配pathname 的文件名，再一次调用Dir，且不要使用参数。如果已没有合乎条件的文件，则Dir 会返回一个零长度字符串()。一旦返回值为零长度字符串，并要再次调

12、用Dir 时，就必须指定pathname，否则会产生错误。不必访问到所有匹配当前pathname 的文件名，就可以改变到一个新的pathname 上。但是，不能以递归方式来调用Dir 函数。以vbDirectory属性来调用Dir 不能连续地返回子目录。提示：由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 7 页 -GetAttr 函数返回一个Integer，此为一个文件、目录、或文件夹的属性。语法GetAttr(pathname)必要的pathname 参数是用来指定一个文件名的字符串表

13、达式。pathname 可以包含目录或文件夹、以及驱动器。返回值由 GetAttr返回的值，是下面这些属性值的总和：常数值 描述vbNormal 0 常规vbReadOnly 1 只读vbHidden 2 隐藏vbSystem 4 系统文件vbDirectory 16 目录或文件夹vbArchive 32 上次备份以后，文件已经改变vbalias 64 指定的文件名是别名。注意这些常数是由VBA指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的值。说明若要判断是否设置了某个属性，在 GetAttr函数与想要得知的属性值之间使用And 运算符与逐位比较。如果所得的结果不为零，则表示设置

14、了这个属性值。例如，在下面的And 表达式中，如果档案(Archive)属性没有设置，则返回值为零：Result=GetAttr(FName)And vbArchive如果文件的档案属性已设置，则返回非零的数值。例：查找 c 盘下所有扩展名为exe 的文件。程序与注释如下：1.在窗体中加一命令按钮Command1,Caption=查找示例，双击此按钮，写如下代码：Private Sub Command1Click()Dim ff()As String定义一个字符串数组用来保存找到的文件名称名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 7 页 -Dim fn As Long保存找

15、到的文件数目fn=TreeSearch(C:dos，.exe，ff()Print找到文件数目为；fnFor i=1 To fnPrint ff(i)NextEnd Sub2.插入一模块Modulel.bas，写如下代码：Option ExplicitPublic Function TreeSearch(ByVal sPathAs String,ByVal sFileSpec AsString,sFiles()As String)As LongStatic 1Files As Long文件数目Dim sDirAs StringDim sSubDirs()As String存放子目录名称Dim 1

16、Index As LongIf Right(sPath,1)Then sPath=sPathsDir=Dir(sPath sFileSpec)获得当前目录下文件名和数目Do While Len(sDir)1Files=1Files 1ReDim PreservesFiles(1 To 1Files)sFiles(1Files)=sPathsDirsDir=DirLoop获得当前目录下的子目录名称1Index=0sDir=Dir(sPath .,16)Do While Len(sDir)If Left(sDir,1).Then skip.and.找出子目录名If GetAttr(sPath sD

17、ir)And vbDirectory Then1Index=lIndex1保存子目录名Redim PreservesSubDirs(1 To 1Index)sSubDirs(1Index)=sPath sDir End IfEnd IfsDir=dirLoopFor 1Index=1 To 1Index查找每一个子目录下文件，这里利用了递归Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles()名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -Next 1IndexTreeSearch=1FilesEnd Function补充：kill路径/文件名删除文件。rmdir 路径删除空文件夹名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -