如何寫一個自動依檔名產生資料夾後再自動將此檔案移動到該資料夾的批次檔呢？

版上神人大哥們：
小弟常做一個動作，將一個資料夾裏的眾多檔案，再重新做分類，將相同檔名（副檔名不同）的資料，另外增加一個資料夾來放置。

例如：

資料夾A裏面，有檔案1.xls、1.doc、2.xls、2.doc、3.xls、3.doc、4.xls、4.doc。照平常的作法，我都是先複製檔名後再新增資料夾，將檔名1copy到資料夾名稱裏，然後再將1.xls、1.doc這二個檔案移動到資料夾1裏面。如果檔案一多，光是這個動作就弄到手快斷了。

有沒有辦法直接用批次檔，自動的找資料夾的檔案，依所有檔案的名稱自動產生所有資料夾，然後再自動的移動檔案到相對應的資料夾裏呢?