亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全，請及時綁定郵箱和手機立即綁定
已解決430363個問題，去搜搜看，總會有你想問的

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

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

慕碼人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條經驗 獲得超4個贊

圖片彈出的意思是：無效的過程調用。
dir是vba內置函數，需要參數運行。

查看完整回答
反對 回復 2019-03-17
?
RISEBY

TA貢獻1856條經驗 獲得超5個贊

因為你遍歷子文件夾時調用帶參數的Dir(folder, vbDirectory)，
子文件夾遍歷結束后，再調用Dir默認的路徑仍然是子文件夾，已經遍歷完了，所以出錯。
建議使用下面方法：
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條經驗 獲得超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函數運行環境
subfoldervisited = Dir(folder, vbDirectory)
Do While subfoldervisited <> anyfsubfolder
subfoldervisited = Dir
Loop
'Dir已恢復至遞歸調用前
anyfsubfolder = Dir
Loop
End Sub



查看完整回答
反對 回復 2019-03-17
  • 3 回答
  • 0 關注
  • 1560 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

 幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

 公眾號

掃描二維碼
關注慕課網微信公眾號