サブフォルダー内のPDFファイルを別フォルダにコピーするVBA

完全な初心者でいろいろ調べたのですがわからないので教えて下さい。
サブフォルダー内のPDFファイルのみを別フォルダにコピーするVBAを
ご教示ください。お願いします。

質問者からの補足コメント

• 説明が悪くて申し訳ありません。
  Aフォルダ内にB,C,D,E,F,,,,,,とサブフォルダーがあり、各サブフォルダー内に様々な種類のファイルがあるところ、その中のPDFファイルのみをZフォルダーにコピーしたいものです。

    補足日時：2016/10/29 19:26

No.5 ベストアンサー 回答者： jmuiny 回答日時： 2016/10/29 21:33

No.3です。

CドライブのAフォルダの中のサブフォルダ内のPFDファイルを、CドライブのZフォルダにコピーするように変更しました。

Sub Sample()
Const fpath1 As String = "C:\A\"
Const fpath2 As String = "C:\Z\"
Dim fso As Object
Dim subfpath As String
Set fso = CreateObject("Scripting.FileSystemObject")
subfpath = Dir(fpath1, vbDirectory)
Do Until subfpath = ""
If subfpath <> "." And subfpath <> ".." Then
fname = fpath1 & subfpath & "\*.pdf"
fso.CopyFile fname, fpath2
End If
subfpath = Dir()
Loop
Set fso = Nothing
End Sub

この回答へのお礼

完璧なご回答まことにありがとうございました。

お礼日時：2016/10/29 22:04

No.4 回答者： WindFaller 回答日時： 2016/10/29 12:24

こんにちは。

'コマンドプロンプトで。

Sub TestCopy()
'コピー元
Const SOURCE As String = "C:\Temp\Test1\"
'コピー先
Const DESTIN As String = "C:\Temp\Test2\"
Dim strCMD As String

strCMD = "Cmd /c copy /-y " & SOURCE & "*.pdf " & DESTIN
'/-y は、上書き確認
Shell strCMD

End Sub

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2016/10/29 22:04

No.3 回答者： jmuiny 回答日時： 2016/10/29 11:18

サンプルです。

下記に元のフォルダを
Const fpath1 As String = "D:\Data\"

下記にコピー先のフォルダを
Const fpath2 As String = "D:\Data\Work\"

それぞれ指定して下さい。最後に \ をつけるのを忘れないように。


Sub Sample()
Const fpath1 As String = "D:\Data\"
Const fpath2 As String = "D:\Data\Work\"
Dim fname As String
fname = Dir(fpath1 & "*.pdf", vbNormal)
Do Until fname = ""
FileCopy fpath1 & fname, fpath2 & fname
fname = Dir()
Loop
End Sub

No.2 回答者： くんこば 回答日時： 2016/10/28 23:31

あ、ごめん。

忘れて。

No.1 回答者： くんこば 回答日時： 2016/10/28 23:30

VBAでもいいですけど、バッチの方が手軽ですよ