![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?5a7ff87)
No.5ベストアンサー
- 回答日時:
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
No.4
- 回答日時:
こんにちは。
'コマンドプロンプトで。
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
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?5a7ff87)
No.3
- 回答日時:
サンプルです。
下記に元のフォルダを
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Visual Basic(VBA) vbaサブフォルダーをワイルドカードで取得したい 2 2022/11/15 08:04
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAでPDFのコピーとリネームを行いたい
Excel(エクセル)
-
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
-
4
サブフォルダ内のファイルを全部移動させたい。
Visual Basic(VBA)
-
5
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
6
多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。
PowerPoint(パワーポイント)
-
7
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
8
多数のサブディレクトリ内のファイルを一括コピーする
その他(プログラミング・Web制作)
-
9
PDFファイルをコピーしてエクセルブックにはりつけるVBA
Excel(エクセル)
-
10
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
13
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
14
VBAにおいて、ファイルの移動にMoveFileを使っていますが、
Visual Basic(VBA)
-
15
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
18
エクセルVBAで全てのサブフォルダ内にファイルをコピー
Excel(エクセル)
-
19
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
20
エクセルVBAで、PDFファイルを開きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダー内のPDFファイル...
-
アクセスで教えてください 住所...
-
恥ずかしいですが、、、 パーセ...
-
交通誘導2級の警備員になろうと...
-
○○様各位と○○各位はどちらが正...
-
実技の反対語は?
-
100点問題で、60点取らなきゃ行...
-
玉掛けと床上操作クレーンの講...
-
内定者なのですが、資格の取得...
-
美大を受験する場合、学校の勉...
-
4択50問をあてずっぽうで10問正...
-
「いずれ」でも?「どれ」でも?
-
秘書検定の配点
-
漢検の合否結果サービスについて
-
言い方として しつこい?ひつ...
-
ウィンドブレーカーとジャージ...
-
本免学科試験今日88点で落ちて...
-
FP3級試験の配点は?
-
AFP/宅建取得後にオススメの資...
-
FPと宅建を並行して勉強した方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダー内のPDFファイル...
-
ファイナンシャルプランナー2級...
-
C言語 所々の意味を教えてくだ...
-
FP2級取得したのですが、全く仕...
-
恥ずかしいですが、、、 パーセ...
-
○○様各位と○○各位はどちらが正...
-
「御会・御協会」の正しい読み...
-
実技の反対語は?
-
玉掛けと床上操作クレーンの講...
-
15問の問題で6割正解は、 何点...
-
都内で緊急連絡先に使える緊急...
-
専門調理師の学科試験は、真偽...
-
今日は平日ですか?
-
法学部が頭いいと言われる理由...
-
漢検の「せいせんえんしゅう」...
-
交通誘導2級の警備員になろうと...
-
FPの試験を受けるのですが、学...
-
国家試験で受験番号マークミス
-
コミュニケーションをとる?
-
名刺肩書き
おすすめ情報
説明が悪くて申し訳ありません。
Aフォルダ内にB,C,D,E,F,,,,,,とサブフォルダーがあり、各サブフォルダー内に様々な種類のファイルがあるところ、その中のPDFファイルのみをZフォルダーにコピーしたいものです。