ファイル名と同名のフォルダを自動作成して移動させる方法はありますか？

windows　XPユーザです。
フォルダ内にある複数のファイル（例えば、word）を１つのファイルごとに分類したいため、そのファイル名と同名のフォルダを元のフォルダ内に新たに作成し、そこに保存したいと思っていますが、ファイルが多数あるため、全てのフォルダについて新規フォルダを自分で作成するのが大変で困っています。何か一括でファイル名と同名のフォルダを作成する方法はないでしょうか？

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2007/10/25 16:46

Excelで代用する方法です。

1.新規でExcelを開き、Wordファイルが保存されているフォルダのパス
　をセルA1に入力します。
　　例）C:\MyData\Docs\Word
2.[Alt]+[F11] で VB Editor を開き、標準モジュールに次のとおり
　記述(コピペ)します。
　'
　Sub CrtFileNameDir()
　　Dim FPath, TargetFile, DName
　　FPath = Range("A1").Value
　　If FPath = "" Then Exit Sub
　　TargetFile = Dir$(FPath & "\*.doc")
　　Do While TargetFile <> ""
　　　DName = Left(TargetFile, InStrRev(TargetFile, ".") - 1)
　　　On Error GoTo Er
　　　MkDir FPath & "\" & DName
　　　FileCopy FPath & "\" & TargetFile, FPath & "\" & DName _
　　　　　　& "\" & TargetFile
　　　Kill FPath & "\" & TargetFile
　　　TargetFile = Dir$
　　Loop
　Er: On Error GoTo 0
　End Sub
　'
3.VB Editor を閉じ、[ツール]-[マクロ]-[マクロ] から、上記マクロを
　実行します。

この回答へのお礼

すごいです。感動しました。(＠_＠)
エディタで拡張子を変えれば、他のファイルでもできるんですね。
２０ポイント以上贈呈したい気分です。
ファイル整理が非常に短縮されそうです。
有難うございました。
ちなみに、このような方法はどこかに掲載されているのでしょうか。
もしよろしければ教えていただけませんでしょうか。

お礼日時：2007/10/25 17:12

No.3 回答者： Mizyu 回答日時： 2007/10/25 18:39

テキストファイルに、下記のコマンドを記載し、○○.batの名前で保存してください。

---
SET SDIR=[*1]
FOR %%I IN (%SDIR%*) DO mkdir %%IF
FOR %%I IN (%SDIR%*) DO copy /-Y %%I %%IF
---
[*1]のところに対象となるディレクトリのフルパスをいれてください。
例）
SET SDIR=C:\hoge\

どこでもいいので設置したら、○○.batのファイルをダブルクリックしてください。
作成されるフォルダはファイル名の後ろにFがついてしまいます。
ファイル名と同じフォルダを作ることができないのでご了承ください。
※Stepを増やせば可能ですが、できるだけ簡単な方法を選択しました。

この回答へのお礼

有難うございます。
この方法も使えそうです。
早速試してみたいと思います。

お礼日時：2007/10/26 09:07

No.2 回答者： misatoanna 回答日時： 2007/10/25 18:33

＃１です。

> このような方法はどこかに掲載されているのでしょうか。

こういう処理がしたいと思うまさにそのもののマクロが記載された
本やサイトというのは、そう都合よくは無いでしょうね。

でも、Googleなどで「Excel VBA」のような語句をキーに検索して
みるとわかりますが、ネットにはVBAについて詳しく解説してくれて
いるサイトがいくつもあります。
こういったサイトや本で、まず入門編で基本を覚え、順に段階を高
めていかれれば、サンプルを応用して自分に都合のよいプログラム
を作れるようになるでしょう。
ＶＢＡに関するＱ＆Ａ掲示板もいくつかありますが、具体的で大いに
参考になります。

がんばってください。（私もまだまだ「正しく美しい」モジュールを
書けるスキルはありませんが）

hanatyan.sakura.ne.jp/
www.moug.net/tech/exvba/
www.voicechatjapan.com/excelvba/index.html

この回答へのお礼

再度のご教示有難うございます。
サイトの情報も今後の役に立ちそうです。
大変参考になりました。

お礼日時：2007/10/26 09:06