はじめまして。こんにちは。ファイル名の取得、フォルダの作成、移動ができなくて困っています。
たとえばC:\testというフォルダの中にaaa1.txt aaa2.txt,aaa3,txt・・・zzz343.txtというようにファイルがランダムにあったとします。最初の3文字は英語と決まっています。そこでaaa1.txtやaaa2.txtがあればaaaというフォルダを同じ階層に作成し、aaa1.txtとaaa2.txtを新しく作成したaaaというフォルダに移動させる。これをすべてのファイルにたいして行いたいのですがどうすればいいのでしょうか?
参考になるURLやサンプルプログラムがありましたら教えて下さい。よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
だいたいこんな感じでいいかと思います。
C:\testとか特定のフォルダというので調べていません。
処理するフォルダにスクリプトを置いて実行することを前提としています。
-------------------------------------------------------------------
Dim fso, folder, regEx,x, exp, folderName
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(".")
Set regEx = New RegExp
regEx.Pattern = "^[a-z]{3}" '先頭に英字が3文字ある
regEx.IgnoreCase = True ' 大文字と小文字を区別しない
For Each x in folder.files
exp=fso.GetExtensionName(x.Name) '拡張子
if UCASE(exp)="TXT" and regEx.test(x.Name) then
folderName = Left(x.Name,3) ' 移動するフォルダ名を取り出す
if not fso.FolderExists(folderName) then '既にフォルダがあるか?
fso.CreateFolder(folderName) '無いのでフォルダを作る
end if
fso.MoveFile x.Name, folderName & "\"
end if
next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/02/05 09:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- その他(プログラミング・Web制作) ファイル名の一部をbatで変更したい batファイルを使って、以下のようにファイル名の一部を変更した 3 2023/02/21 20:09
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- その他(プログラミング・Web制作) フォルダ内の特定 拡張子のファイルを一括実行するBat ファイルについて 4 2022/04/17 09:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA フォルダ名に特定の文字を...
-
フォルダを開いて、閉じるのプ...
-
VBA 最新のフォルダ取得
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
excel VBA Dirにて検索したフォ...
-
あるフォルダの中にあるファイ...
-
バッチファイルで指定フォルダ...
-
サーバ内のフォルダ名と各フォ...
-
言語[C#]..フォルダ選択ダイア...
-
VBSでファイル名と同じフォルダ...
-
Access VBA で フォルダ権限...
-
エクセルのVBAで特定のフォルダ...
-
VB.NRT FolderBrowserDialogを...
-
ディレクトリ名変更してコピー...
-
バッチファイル フォルダを...
-
Excel VBA フォルダ存在チェッ...
-
【VBS】古い日付のフォルダを削...
-
ThisWorkbookがあるフォルダ更...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報