VB 如何遍历文件夹下所有文件,高手请指教
发布网友
发布时间：2022-12-16 21:49
我来回答
共1个回答
热心网友
时间：2023-06-30 20:13
窗体上有四个控件，命令按钮command1。列表框list1。驱动器列表Drive1。文件夹列表Dir1。
驱动器和文件夹列表是用来选择你想要搜索的文件夹。
程序运行时选中你想要搜索的文件夹，单击搜索按钮。该文件夹下面所有的文件及子文件夹里面的文件都列到列表框中。
将代码复制到窗体即可。代码如下：
Private Sub Command1_Click()
List1.Clear
sosuofile (Dir1.List(Dir1.ListIndex))
MsgBox "搜索完毕！，共找到" + Str(List1.ListCount) + "条记录。", vbOKOnly + vbExclamation, "提示"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Sub sosuofile(MyPath As String)
Dim Myname As String
Dim dir_i() As String
Dim i, idir As Long
If Right(MyPath, 1) <> "\\" Then MyPath = MyPath + "\\"
Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
Do While Myname <> ""
If Myname <> "." And Myname <> ".." Then
If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录
idir = idir + 1
ReDim Preserve dir_i(idir) As String
dir_i(idir - 1) = Myname
Else: List1.AddItem "" & MyPath & " " & Myname '把找到的文件显示到列表框中
End If
End If
Myname = Dir '搜索下一项
Loop
For i = 0 To idir - 1
Call sosuofile(MyPath + dir_i(i))
Next i
ReDim dir_i(0) As String
End Sub
Private Sub Form_Load()
Command1.Caption = "搜索"
End Sub
VB 如何遍历文件夹下所有文件,高手请指教
驱动器和文件夹列表是用来选择你想要搜索的文件夹。程序运行时选中你想要搜索的文件夹，单击搜索按钮。该文件夹下面所有的文件及子文件夹里面的文件都列到列表框中。将代码复制到窗体即可。代码如下：Private Sub Command1_Click()List1.Clear sosuofile (Dir1.List(Dir1.ListIndex))MsgBox "搜索完毕！
vb遍历指定文件夹下所有文本内容
打开文件功能中允许选择多个文件，选择文件之后，将多个选择的文件合并到一个文件中 如果 txt 文件都是 ANSI 编码相对简单一些，用 OPEN 就可以进行，如果格式不统一，就要 Unicode/UTF8 等等处理函数了
如何用VBA遍历指定目录下的所有子文件夹Excel文件的所有工作表
ThisWorkbook.Name, False)For i = 0 To UBound(FileArr ) MsgBox FileArr (i) 'Set WB = Workbooks.Open(FileArr (I)) '//打开工作簿 '你的代码 'WB.Close true '//保存NextEnd Sub'***'功能： 查找指定文件夹含子文件夹内所有文件名或文件夹名（含路径）'函数名：...
如何使用perl遍历一个目录下的所有文件
SubTest()DimMyName,Dic,Did,I,T,F,TT,MyFileNameT=TimeSetDic=CreateObject("Scripting.Dictionary")'创建一个字典对象SetDid=CreateObject("Scripting.Dictionary")Dic.Add("D:\MyDocuments\"),""I=0DoWhileIDic.CountKe=Dic.keys'开始遍历字典MyName=Dir(Ke(I),vbDirectory)'查找目录DoWhileMyNam...
vba打开文件夹下所有目录中的文件,回答对了,给30分!
你所谓的“打开”是什么意思呢？是在同一时间同时启动“d:\打开”下的N个目录里面的所有xls文件么？即使有1万个文件也同时打开么？你想把电脑弄坏也不用这么拐弯抹角吧？如果不是，那么就请把题目再描述得清楚些。
vba一键统计所在的文件夹里其他EXCEL的数值?
参考下面处理 Excel如何把文件夹下所有文件表合并汇总文件内
求助]如何用VBA遍历指定目录下的所有子文件夹和文件-字典模式
F是一个临时逻辑变量，保存本程序工作簿中是否已有名为“XLS文件清单”的工作表，方便后续的代码处理，如果没有，就先建这个工作表，后面才能放置遍历出来的文件夹。经过对代码的分析，以下两行完全可以省略 Else F = False
...NestFile编写一个遍历文件夹下所有文件的代码怎么写,求大神指导,万 ...
递归遍历一下就行了，代码：int ShowDir(string strDir){ struct _finddata_t c_file; long hFile; if((hFile = _findfirst( strDir.c_str(), &c_file )) == -1L ) { return -1; } while( _findnext( hFile, &c_file ) == 0 ) { if (strcmp(".", c_file.name...
使用VB遍历文件夹内的所有文件,文件夹内没有子文件夹,内含的文件最多15...
因此，你这15万个文件的文件夹是无法用VB本身自带的控件或函数来遍历的，只能使用第三方控件或组件，比如大名鼎鼎的FSO：Dim fso As Object, fd As Object, f As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set fd = fso.GetFolder("要处理的文件夹全路径名写在这")For Each f In...
如何显示当前盘下所有各级子目录及其包含的文件名,应使用命令
提供一个 VB 遍历指定文件夹下 文件的 代码 '查找第一个文件的API Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long '查找下一个文件的API Public Declare Function FindNextFile Lib "...
