看你的註解 '開啟Ar，找檔名有"統"裝入Ar
原有程式中如下 是找路徑中有 "統"
If InStr(f1.Path, "統") Then
若 f1.Path 改成 f1.Name 是否比較對?
If InStr(f1.Name, "統") Then
原程式
'For i = 1 To n '開啟Ar，找檔名有"統"裝入Ar
' Set f = fs.GetFolder(Ar(i, 1))
' Set fc = f.Files
' For Each f1 In fc
' If InStr(f1.Path, "統") Then
' n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
' End If
' Next f1
'Next i
建議
For i = 1 To n '開啟Ar，找檔名有"統"裝入Ar
Set f = fs.GetFolder(Ar(i, 1))
Set fc = f.Files
For Each f1 In fc
If InStr(f1.Name, "統") Then
n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
End If
Next f1
Next i
發表於 2021-9-28 17:01
| 