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
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)
-
サブフォルダ内のファイルを全部移動させたい。
Visual Basic(VBA)
-
-
4
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
5
多数のサブディレクトリ内のファイルを一括コピーする
その他(プログラミング・Web制作)
-
6
多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。
PowerPoint(パワーポイント)
-
7
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
8
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
9
PDFファイルをコピーしてエクセルブックにはりつけるVBA
Excel(エクセル)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
13
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
14
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
15
エクセルVBAで全てのサブフォルダ内にファイルをコピー
Excel(エクセル)
-
16
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
17
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
18
VBAにおいて、ファイルの移動にMoveFileを使っていますが、
Visual Basic(VBA)
-
19
サブフォルダ含むフォルダ内の全ファイルから指定文字列を含んだファイルの情報を一覧出力させたい
Visual Basic(VBA)
-
20
フォルダ内のPDFファイル名を変更するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダー内のPDFファイル...
-
恥ずかしいですが、、、 パーセ...
-
私が昨日質問投稿した鹿を蹴る...
-
○○様各位と○○各位はどちらが正...
-
玉掛けと床上操作クレーンの講...
-
15問の問題で6割正解は、 何点...
-
コミュニケーションをとる?
-
「その後」の読み方
-
「御会・御協会」の正しい読み...
-
ウィンドブレーカーとジャージ...
-
文学部と法学部だと、どちらが...
-
左二箇所のホチキス止めについて
-
実技の反対語は?
-
大学の志願理由書についてです...
-
法学部と法文学部の違い
-
アテネフランセのフランス語教...
-
関西大学の法学部に進学するこ...
-
高校英語
-
暴言を吐いたり、釣り,するの...
-
受験に落ちたとのメールが来ま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダー内のPDFファイル...
-
アクセスで教えてください 住所...
-
ファイナンシャルプランナー2級...
-
来月のFPの試験は開催されます...
-
C言語 所々の意味を教えてくだ...
-
fp の仕事内容を教えてください
-
FP3級・5月試験です。勉強方法。
-
恥ずかしいですが、、、 パーセ...
-
皆さん聞いてください、わたし...
-
玉掛けと床上操作クレーンの講...
-
○○様各位と○○各位はどちらが正...
-
実技の反対語は?
-
15問の問題で6割正解は、 何点...
-
「御会・御協会」の正しい読み...
-
証券外務員2種に受かるためには...
-
本免学科試験今日88点で落ちて...
-
法学部が頭いいと言われる理由...
-
交通誘導2級の警備員になろうと...
-
コミュニケーションをとる?
-
文学部と法学部だと、どちらが...
おすすめ情報
説明が悪くて申し訳ありません。
Aフォルダ内にB,C,D,E,F,,,,,,とサブフォルダーがあり、各サブフォルダー内に様々な種類のファイルがあるところ、その中のPDFファイルのみをZフォルダーにコピーしたいものです。