|
▼ポンタ さん
はじめまして jamと申します。
おかげさまで無事、動くようになりました。
ですが…。 もってくるファイルの条件を指定するところが
まだよくわからないのです…。 すいません まだまだ初心者なもんで…。
(--;)
もってくるファイルの例は、頭が”XXXX”の奴みたいな感じで
複数あります。
誠に申し訳ありませんが、ご教授願えると…。
>横から失礼します。
>こういうことでしょうか?
>
>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
|
|