■複数階層にあるtxtファイルを任意のフォルダにまとめてコピーしたい。
Windowsのコマンドプロンプト（バッチ処理？）で上記のようなコマンドは可能でしょうか？
例えば、添付画像のような構成のディレクトリで、dataフォルダの中身のサブディレクトリも含めた中にあるtxtファイルを任意のディレクトリ[data2]にコピーしたいです。
その際、txtファイルが重複しても大丈夫なように、「そこまでのパス + ファイル名」とリネームもしたいです。
このような事を実現する、バッチコマンドを教えてください。
宜しくお願いいたします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
km1981
満足300pt
バッチ処理だけでは難しいところがあるので
WSH（VBScript）で書いてみました
このファイルを "hoge.vbs" のように拡張子 vbs で保存して
コマンドラインから実行してください
パラメータは最初の3つの変数を適当に変更してください
Option Explicit Dim Sour, Dest, Ext, Fso, Win Dim Msg Sour = "C:\data" :'コピー元フォルダ Dest = "C:\data2" :'コピー先フォルダ Ext = "txt" :'コピー対象の拡張子 Set Fso = CreateObject("Scripting.FileSystemObject") Set Win = Wscript.CreateObject("Shell.Application") '--再帰呼び出しでコピーを実行 Sub copyFiles(parent, sour, dest) Dim folder, fi, fname Set folder = Win.NameSpace(sour) For Each fi In folder.Items If fi.IsFolder Then copyFiles fi.Name, sour & "\" & fi.Name, dest ElseIf fso.GetExtensionName(fi.Name) = Ext Then '--コピー先にファイルが存在する If Fso.FileExists(Dest & "\" & fi.Name) Then fname = Dest & "\" & parent & fi.Name '--存在しない Else fname = Dest & "\" & fi.Name End If Fso.CopyFile sour & "\" & fi.Name, fname :'コピー実行 End If Next End Sub '--コピー先フォルダがなければ作成 If Fso.FolderExists(Dest) Then Else Fso.CreateFolder(Dest) End If '--コピー実行 copyFiles "", Sour, Dest-
ruijio
-
ruijioその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2011-08-16 14:10:21
- 終了日時
- 2011-08-16 18:22:54
- 回答条件
- 1人3回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
setlocal enabledelayedexpansion
C:
cd \data
set Destination=C:\data2
for /f %%i in ('dir /b /s /a:-d *.txt') do (
set FileName=%%i
set FileName=!FileName:\=_!
set FileName=!FileName:~3!
copy "%%i" "%Destination%\!FileName!"
)
こんな感じで、可能かと 思います。
No1さんのご回答にて解決いたしました。
コメントありがとうございました。