
こんにちは、質問です。
一つのフォルダーの中に300個のファイルと同じ名前のフォルダーを300個作りましたが、このファイルを一気に同じ名前のフォルダーに振分ける方法を教えてください。
(ファイル名と同じ名前のフォルダーを作るのは、ほかの方の質問を見てバッチで行いました。)
◎現状
一つのフォルダの中に300個の画像ファイルとファイルと同名の300個のフォルダが入っています。
これをデスクトップに保存しています。
windows10です。ひとつずつ入れるには時間がかかりすぎます。一気に移動できる方法を教えてください。
◎フォルダーの中身イメージ
<300個の画像ファイル>
○○○○.png
△△△△△.png
××××××.png
<300個のフォルダ->
〇〇〇〇
△△△△△
××××××
No.3ベストアンサー
- 回答日時:
もう既に(手動で)解決済みの様ですが、
今後使うことがあればと思いvbsでコードを作成してみました。
dim dir
dir = inputbox("対象ディレクトリの指定"&vbcrlf&"(絶対パスでの指定)","Input")
if dir <> "" then
if right(dir,1) <> "\" then
dir = dir & "\"
end if
'オブジェクトの宣言
dim oFS
set oFS = createobject("Scripting.FilesystemObject")
'指定したディレクトリのオブジェクト
dim obj
set obj = oFS.GetFolder(dir)
dim count
count = 0
for Each objFile in obj.Files
'取得したファイルの移動
oFS.Movefile dir & objFile.Name, dir & Left(objFile.Name, instr(objFile.Name,".")-1) & "\"
count = count + 1
Next
msgbox count & "個のファイルを移動",,"Result"
set obj = Nothing
set oFS = Nothing
end if
上記のコードをメモ帳等のエディタにコピーして拡張子を(.vbs)にして保存すれば使用可能です。
実行すると入力窓が出るので移動対象が置かれたディレクトリの絶対パスを入力してください。
指定されたディレクトリ内全てのファイルを移動させます。
※1:保存する際に全角スペースをインデントに置き換えてください
※2:ファイル名に「.」を含んでおらず、同名のフォルダが必ず存在しているのが前提条件です。
以上ご参考まで
細うどんさん、お礼が遅くなって申し訳ございません。
確かに手動でいったん終わりましたが、今後も定期的に数百個単位でファイルをフォルダーに振分ける作業が発生するので、困っていました。
VBSというファイルを見るのも使うのも初めてで、こんな方法があるのか、と驚き、もっと詳しく知りたいという気持ちになりました。
これで、いっぺんに作業できれば、とても助かります。
ありがとうございます。
ただ実際にやってみると、メモ帳を保存してVBSファイルはでき、実行してみましたが、思うようになりません。ディレクトリの絶対パスというのは、
C:\Users\Desktop\folders➡こういうのですか?
上記のように表示されているのをコピーして貼り付けて実行してみましたが、まだうまくできません。多分私がなにか間違っていると思われます。お手すきの時で構いませんのでもし、お時間があれば教えてください。
ありがとうございました。
(※のファイル名の条件はクリアしています。)
No.4
- 回答日時:
※この回答は、“締め切られた質問への回答追加”として、2017/12/22 18:45に回答者の方よりご依頼をいただき、教えて!gooによって代理投稿されたものです。
---
絶対パスはルートディレクトリからのフルパスを指すので記載いただいた様な記述で合っています。
うまくできないと有りますが、実行すらエラーで出来ないのか または実行はできても思った通りの動きをしないのかが分からないと対応ができません。
ベストアンサーが選ばれると回答が締め切られるので現状で発生している問題の詳細を再度質問してください。
(回答に関して今回は本サイトの管理者様にご対応頂いています)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
同名フォルダを作成し、そのフォルダに移動するバッチ
その他(プログラミング・Web制作)
-
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
-
4
一括でフォルダと同じ名前にファイルをリネームしたい
フリーソフト
-
5
ファイル名の頭5桁と同名のフォルダを自動作成し、移動させる方法はありますか?
Access(アクセス)
-
6
ファイル自動仕分けのフリーソフトありませんか?
フリーソフト
-
7
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
8
フォルダについて。
Windows 10
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パスから最後のディレクトリだ...
-
readdir()で得られるファイル・...
-
Windowsで複数のファイルを同じ...
-
C言語でファイル名を取得
-
複数のCSVファイルを一つのCSV...
-
batファイルでrenameができませ...
-
vba dir の相対パス
-
MATLAB グローバル変数の宣言
-
バッチファイルの作り方(CSV→...
-
MATLABのm-fileについて
-
エクセルVBA コードが同じでも...
-
CSVが可変長の場合の検索方法
-
PICでFatFsでオープンした内容...
-
Perl-CGI で排他制御はどうすれ...
-
初心者で、困っています。(文...
-
sprintfについて
-
ReadLineでの読み出し行を指定する
-
openした後、closeしないでプロ...
-
テキストファイルから日本語部...
-
VBAでCSVファイルを途中行まで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsで複数のファイルを同じ...
-
batファイルでrenameができませ...
-
vba dir の相対パス
-
パスから最後のディレクトリだ...
-
FindFirstFileとFindNextFileで...
-
readdir()で得られるファイル・...
-
ディレクトリー内のリスト出力...
-
ファイル名と更新日付の取得に...
-
C言語でファイル名を取得
-
ファイルの削除について
-
シェルでfind結果を文字列で比...
-
dos変数の%~dp0は powershellで...
-
フォルダに入っているファイル...
-
サーバー内にある指定した拡張...
-
CGIで日本語名ファイルのアップ...
-
find関数が1階層(カレントディ...
-
下のディレクトリ(3つ)に含ま...
-
ファイル名が日本語の物をダウ...
-
<>の意味が分かりません
-
makefileでファイルをコピー(...
おすすめ情報
〇〇〇〇.pngという名前のファイルを→○○○○という名前のフォルダーに移動
△△△△△.pngという名前のファイルを→△△△△という名前のフォルダーに移動
××××××.pngという名前のファイルを→××××××という名前のフォルダーに移動
これを一個づつやっていると、とても時間がかかるので、一気に選択して一気にフォルダーにふりわけたいのです。