vb 遍历文件夹 与遍历文件

概述Public Sub Search_wenjian() '遍历文件 获得文件名称Dim sPath As String'查找文件夹sPath = Dir(path, vbDirectory) '查找第一个文件夹Do While Len(sPath) '循环到没有文件夹为止 If Left(sPath, 1) <> "." Then '为了防止重复查找 If G

Public Sub Search_wenjian() '遍历文件 获得文件名称Dim sPath As String'查找文件夹sPath = Dir(path,vbDirectory)  '查找第一个文件夹do while Len(sPath) '循环到没有文件夹为止   If left(sPath,1) <> "." Then '为了防止重复查找   If GetAttr(path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。      Folder_num = Folder_num + 1      'Folder(b) = path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中      Folder_file(Folder_num - 1) = sPath      'Folder_file_path(Folder_num - 1) = path & sPath & "\"   End If   End If sPath = Dir '查找下一个文件夹 DoEvents '让出控制权LoopEnd SubPublic Sub Search_file_in_folder(folder_name As String)  '遍历指定文件夹下的所有文本文件Dim files() As StringDim a As IntegerfileType = "*.*"sPath = Dir(folder_name & fileType) '查找第一个文件do while Len(sPath) '循环到没有文件为止   a = a + 1   ReDim Preserve files(1 To a)   files(a) = path & sPath '将文件目录和文件名组合,并存放到数组中   sPath = Dir '查找下一个文件   DoEvents '让出控制权LoopEnd Sub

总结

以上是内存溢出为你收集整理的vb 遍历文件夹 与遍历文件全部内容，希望文章能够帮你解决vb 遍历文件夹 与遍历文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。