Hsieh

回復 3# imzues

1. Sub ex()
   
2. Set fdo = CreateObject("Scripting.FileSystemObject")
   
3. fd = "D:\A\"
   
4. fs = Dir(fd & "*")
   
5. Do Until fs = ""
   
6.    If IsNumeric(Application.Match(Split(fs, "-")(0), Columns("A"), 0)) Then
   
7.    fdo.copyfile fd & fs, "D:\B\" & fs
   
8.    End If
   
9.    fs = Dir
   
10. Loop
    
11. End Sub

複製代碼