首頁猿問在VBA中用DIR函數(shù)遍歷子文件夾出錯?

在VBA中用DIR函數(shù)遍歷子文件夾出錯?

Python

慕碼人8056858 2019-01-29 07:02:54

Sub test002(folder As String)anyfsubfolder = Dir(folder, vbDirectory)DoSelect Case anyfsubfolderCase ""Exit DoCase "."Case ".."Case ElseIf GetAttr(folder & anyfsubfolder) And vbDirectory ThenCall test002(folder & anyfsubfolder & "\")End IfEnd Selectanyfsubfolder = Dir ‘《《-----在這個地方出錯LoopEnd Sub從子文件夾中返回上層文件夾中的時候，出錯

查看完整描述

3 回答

縹緲止盈

TA貢獻2041條經(jīng)驗獲得超4個贊

圖片彈出的意思是：無效的過程調(diào)用。
dir是vba內(nèi)置函數(shù)，需要參數(shù)運行。

反對回復 2019-03-17

RISEBY

TA貢獻1856條經(jīng)驗獲得超5個贊

因為你遍歷子文件夾時調(diào)用帶參數(shù)的Dir(folder, vbDirectory)，
子文件夾遍歷結束后，再調(diào)用Dir默認的路徑仍然是子文件夾，已經(jīng)遍歷完了，所以出錯。
建議使用下面方法：
Sub test002(folderspec)
Dim fs, f, f1, sf, fc
Dim mypath As String, fn As String
Dim i As Long, lmyRow As Long

On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
Set fc = f.Files

For Each f1 In sf
fn = f1.Name
mypath = folderspec & fn & "\"
ShowFolderList mypath
Next
For Each f1 In fc
fn = f1.Name
Next
End Sub

反對回復 2019-03-17

慕妹3146593

TA貢獻1820條經(jīng)驗獲得超9個贊

遇到過同樣的問題, 稍微修改了一下可以遍歷了。

Sub test002(folder As String)
If Right(folder, 1) <> "\" Then
folder = folder & "\"
End If

anyfsubfolder = Dir(folder, vbDirectory)
Do
Select Case anyfsubfolder
Case ""
Exit Do
Case "."
Case ".."
Case Else
If GetAttr(folder & anyfsubfolder) And vbDirectory Then
'MsgBox folder & anyfsubfolder
Call test002(folder & anyfsubfolder)
End If
End Select
'加上以下代碼, 還原Dir函數(shù)運行環(huán)境
subfoldervisited = Dir(folder, vbDirectory)
Do While subfoldervisited <> anyfsubfolder
subfoldervisited = Dir
Loop
'Dir已恢復至遞歸調(diào)用前
anyfsubfolder = Dir
Loop
End Sub