![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
AboutCopy
ファイル名を変更しながらのコピー/ムーブができます
http://www.vector.co.jp/soft/win95/util/se099972 …
ffren
ファイル・フォルダー名加工ユーテリィティ for Win98/2000
http://www.vector.co.jp/soft/win95/util/se144005 …
この2つのフリーソフトを紹介します。
ffrenは、私が使っていますが、フォルダ内のファイルを一括して変更してくれて、使い易いものです。
参考URL:http://www.vector.co.jp/soft/win95/util/se099972.html,http://www.vector.co.jp/soft/win95/util/se144005 …
No.1
- 回答日時:
これくらいの処理ならVBScriptで簡単に出来るので、作ってみました(笑)
以下のスクリプトを「適当なファイル名.vbs」として保存し、5~6行目を書き換えて実行して下さい。
ちゃんとしたエラー処理していない&サプフォルダ未対応ですが、その辺りは我慢して頂くか、ご自由に改良して下さい(爆)
なお、下記ではインデント(字下げ)のために全角スペースを使用していますが、実際ご利用の際は半角スペースに直して下さい(エラーになりますので)
'--------------------------------------
' strPath1 = コピー元フォルダ名
' strPath2 = コピー先フォルダ名
'--------------------------------------
strPath1 = "c:\data\folder"
strPath2 = "d:\backup\folder"
Set objFsobj = CreateObject("Scripting.FileSystemObject")
Set m_fs = objFsobj.GetFolder( strPath1 )
Set m_fc = m_fs.Files
For Each m_file In m_fc
strNewFile = objFsobj.GetBaseName( m_file ) & Year( Now ) & _
Right("0" & CStr(Month( Now )), 2) & _
Right("0" & CStr(Day( Now )), 2) & "." & _
objFsobj.GetExtensionName( m_file )
objFsobj.CopyFile m_file, strPath2 & "\" & strNewFile
Next
Set m_fc = Nothing
Set m_fs = Nothing
Set objFsobj = Nothing
MsgBox "コピー完了しました。", vbInformation, "Messeage"
この回答への補足
回答ありがとうございました。作成していただいたものもテストさせていただきました。これも活用させていただきたいと思いますが、普段必要なのは、エクスプローラーでコピーするときにドラッグすると簡単に日付入りにしてくれるようなものなのです。
補足日時:2001/01/31 11:11お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
- Excel(エクセル) 1つのファイルを複数のフォルダにファイル名を【明日の日付】にして、コピーしたい 5 2022/12/13 20:11
- Excel(エクセル) 1つのファイルを複数のフォルダにファイル名を【明日の日付】にして、コピーしたい 5 2022/12/13 04:23
- Excel(エクセル) Excel VBA 3 2023/04/22 10:46
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- UNIX・Linux サーバー間のデータコピー(データ形式とデーターフォーマットの変換あり。一定間隔で処理) 2 2023/08/22 22:15
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Windows 10 OpenFile(アクセスが拒否されました。5) 1 2022/09/14 14:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フリーウェアで簡単なPDF化ソフ...
-
花火のスクリーンセーバー探し...
-
Windows XPの画面から作業内容...
-
ファイル比較のフリーソフトを...
-
分間隔でボタンを押すツール
-
ファイルの存在を見えなくする...
-
動作が軽いMP3プレイヤー
-
教えてください☆画像を円形にす...
-
文字で顔や絵を作れるソフトが...
-
ネットラジオで便利なフリーソ...
-
JPEGでの保存方法を教えてくだ...
-
XPでJW-cad(dos)が動くか
-
「常に最前面に表示」ができる...
-
履歴書のフォーマット?がほしい
-
連番ファイル名を変更したい
-
windows98上で動く壁紙用のフリ...
-
Mac(OS9)で、PINGって飛ばせる?
-
MySQLの管理ツール
-
アウトゥックエキスプレス・O...
-
メモ張の名前を自動で連続数で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
勉強用に:PDFファイルで答えを...
-
フリーのPDF X change viewer ...
-
キーボードで弾いた曲を自動で...
-
Windows XPの画面から作業内容...
-
下書きが消えてしまいました
-
イラストに文字を入れる方法を...
-
デスクトップに今日の予定など...
-
あるフリーゲームをさがしています
-
zdfファイルが開けません
-
サイトの"h"抜きリンクに自動で...
-
日付カウントダウンの出来るソ...
-
数字符の楽譜を作れるソフト
-
PING JPEGファイルのコメント部...
-
拡張メタファイル windows メタ...
-
XP対応の日数計算が出来るカレ...
-
メモ張の名前を自動で連続数で...
-
歌のパートわけが出来るソフト
-
Beckyの迷惑メール対策ソフト
-
IMEのON、OFF
-
トライバルパターンの作り方を...
おすすめ情報