读一个文件夹下的多个文件夹中的多个文件,怎么读?请教!

[zhjsdy]

读一个文件夹下的多个文件夹中的多个文件,怎么读?请教!

[一笑拔剑]

先
Dir("e:\AZL\A")
然后在结果里分析

[zhjsdy]

怎么做请指教?aspower

[of123]

首先用 Dir 遍历同级所有目录，并将路径保存到一个数组中。
然后循环遍历它们的子目录和文件。文件直接读，目录保存在数组中。

上面的操作可以写成一个递归的过程。递归的过程需要一个数组参数传递当前的一级路径。

注意，不要直接 Dir 访问子目录递归，因为返回时会丢失 Dir 函数原来的搜索路径。

[of123]

Dim srcFile As String
srcFile = Dir("e:\AZL\A\5*" & "\A0?????." & yy & aa)
Do Until srcFile = ""
Open "e:\AZL\A\5*" & "\" & srcFile For Input As #FHandle ' 打开文件
srcFile = Dir
Loop
在这里"5*"的位置怎么处理?我要读A文件夹下的'5*'的100多个文件夹!

既然没有多层子目录嵌套的问题，就简单多了：
Dim srcFile As String
Dim strSubDir() As String

Redim strSubDir(0)
srcFile = Dir("e:\AZL\A\5*", vbDirectory)
Do Until srcFile = ""
If strSubDir(0) = "" Then
strSubDir(0) = strFile
Else
Redim Preserve strSubDir(Ubound(strSubDir) + 1)
strSubDir(Ubound(strSubDir)) = strFile
End If
srcFile = Dir
Loop

For i = 0 To (Ubound(strSubDir))
srcFile = Dir("e:\AZL\A\" & strSubDir(i) & "\A0?????." & yy & aa)
Do Until srcFile = ""
Open "e:\AZL\A\" & strSubDir(i) & "\" & srcFile For Input As #FHandle '打开文件
srcFile = Dir
Loop
Next i

[alps014]

同样困饶我的问题,顶
关注中!~!~!

[ffssffss]

for each 语句就能解决

[LunTanZeng]

批处理

[LunTanZeng]

del /s/q *.*

[zhjsdy]

Dim srcFile As String
srcFile = Dir("e:\AZL\A\5*" & "\A0?????." & yy & aa)
Do Until srcFile = ""
Open "e:\AZL\A\5*" & "\" & srcFile For Input As #FHandle ' 打开文件
srcFile = Dir
Loop
在这里"5*"的位置怎么处理?我要读A文件夹下的'5*'的100多个文件夹!

[makepeace]

Dim myFSO As Scripting.FileSystemObject
Dim mysubFolder As Scripting.Folder

For Each mysubFolder In myFSO.GetFolder(your folder path).SubFolders
....
Next

[zhjsdy]

for each 语句?说的明白点好吗？

[deny5]

for each SubFolder in SubFolders

在找出的目录里 遍历 就可以了