ML089

¬Ý§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