|
横から失礼します。
こういうことでしょうか?
Path1 のフォルダ内を調べて、
Path2 にコピーしています。
適切に書き換えてお試しください。
Sub test()
Dim Path1 As String, Path2 As String
Dim objFs As Object
Dim objFolder As Object
Dim objFile As Object
'環境に合わせて書き直してください
Path1 = "C:\My Documents\test1\"
Path2 = "C:\My Documents\test2\"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder(Path1)
For Each objFile In objFolder.Files
If InStr(1, objFile.Name, "0") > 0 Then
Call objFs.Copyfile(objFile.Path, Path2)
End If
Next
End Sub
|
|