¬Ý§Aªºµù¸Ñ '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
즳µ{¦¡¤¤¦p¤U ¬O§ä¸ô®|¤¤¦³ "²Î"
If InStr(f1.Path, "²Î") Then
Y f1.Path §ï¦¨ f1.Name ¬O§_¤ñ¸û¹ï?
If InStr(f1.Name, "²Î") Then
ìµ{¦¡
'For i = 1 To n '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
' 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
«Øij
For i = 1 To n '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
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