VB代码遍历某文件夹及子文件夹中的所有文件.docx
-
资源ID：3168280
资源大小：36.79KB
全文页数：4页
- 资源格式： DOCX
下载积分：6.99金币
|
友情提示
2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。
3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。
5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。
|
VB代码遍历某文件夹及子文件夹中的所有文件.docx
VB代码遍历某文件夹及子文件夹中的所有文件'遍历文件夹Private Sub ShowFolderList(folderspec)Dim fs, f, f1, s, sfDim hs, h, h1, hfSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set sf = f.SubFoldersFor Each f1 In sfList1.AddItem folderspec & "" & f1.NameCall ShowFolderList(folderspec & "" & f1.Name)NextEnd Sub'遍历某文件夹下的文件Private Sub Showfilelist(folderspec)Dim fs, f, f1, fc, sSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fcList1.AddItem f1.NameNextEnd Sub'遍历某文件夹及子文件夹中的所有文件Sub SosuoFile(MyPath As String)Dim Myname As StringDim a As StringDim B As StringDim dir_i As StringDim i, idir As LongIf Right(MyPath, 1) <> "" Then MyPath = MyPath + ""Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ""If Myname <> "." And Myname <> "." ThenIf (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录idir = idir + 1ReDim Preserve dir_i(idir) As Stringdir_i(idir - 1) = MynameElseList1.AddItem MyPath & Myname '把找到的文件显示到列表框中End IfEnd IfMyname = Dir '搜索下一项LoopFor i = 0 To idir - 1Call SosuoFile(MyPath + dir_i(i)Next iReDim dir_i(0) As StringEnd Sub'附:'在这里可以处理目录中的文件'Fn.Name '得到文件名'Fn.Size '得到文件大小'Fn.Path '得到文件路径'Fn.Type '得到文件类型'Fn.DateLastModified '得到文件最后的修改日期'调用方法'ShowFolderList ("c:a") 查找目录'Showfilelist ("c:a") 查找文件'SosuoFile ("c:a") 查找目录+文件
