特定のフォルダの中身を別フォルダに一括移動させるVBAを作りたいと思っています。
実行の都度、移動先のフォルダ内に年月日時分秒のフォルダを作成して、そこに
ファイルを移動させたいのですが、フォルダの作り方がわかりません。
固定フォルダで一括移動はいろいろなサイトを回って以下のような感じでできたのですが。
Const cnsSOUR = "C:\Users\abc\Desktop\SAMPLE\*.*"
Const cnsDEST = "C:\Users\abc\Desktop\SAMPLE2\"
Dim objFSO As FileSystemObject
Set objFSO = New FileSystemObject
' FSOによるファイルコピー
objFSO.MoveFile cnsSOUR, cnsDEST
Set objFSO = Nothing
お詳しい方ご教授願います。
No.2ベストアンサー
- 回答日時:
format(now,"yyyymmdd\-hhnnss")
でどうぞ。
\- を付け加えたのはこの方が見やすいかな?
と思っただけですので不要なら無くて可。
No.1
- 回答日時:
フォルダ作成は、VBAにも mkDir ステートメントが有りますし、
FileSyatemObject なら、objFso.createFolder("フォルダーパス")
でできますよ。
Office2010 ではFileSystemObject関連もヘルプで見られるのですが
http://oshiete.goo.ne.jp/qa/7891560.html
の後半にある方法で用意すればもう少し詳しく載ってますし
探しやすいので便利です。
回答ありがとうございます。
単純にフォルダを作成(年月日で)するだけであれば
Dim SaveDir As String
SaveDir = "C:\Users\abc\Desktop\SAMPLE2\" & Format(Date, "yyyymmdd")
MkDir SaveDir
のような感じで出来ると思うのですが、時分秒を付加した形でフォルダ名を作成しないと日に数回処理するため問題があります。
ヘルプは見てみましたが、探し方が良くないのかそれらしいものを見つけられません。
年月日時分秒でフォルダを作る方法をご教授願えますでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
(UWSC)ファイルを作るときに、...
-
VB .netでドキュメントにフォル...
-
META-INFフォルダの置き場所に...
-
フォルダのサイズを一覧にした...
-
ファイル名と同名のフォルダを...
-
jQueryPlugin「fancybox」のパス
-
多量のファイルをフォルダに自...
-
フォルダ選択ダイアログ:ネッ...
-
画像をコピーしてリネームする...
-
ExcelのVBAでの複数階層からの...
-
VBA フォルダ名に特定の文字を...
-
バッチファイルを変数で作成したい
-
あるフォルダの中にあるファイ...
-
MinGWで正規表現(regex.h)がし...
-
Windows Python初心者です。 im...
-
Excel VBA で フォルダ名の一部...
-
Access VBA で フォルダ権限...
-
【マクロ】ファイル名の日付に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報