一括でファイルを移動する方法

質問

ファイルを移動させる方法について教えてください。
今のフォルダ構成はこのようになっています。

　20080405フォルダ
|_file0405-1.txt
|_file0405-2.txt
|_file0405-3.txt

　20080406フォルダ
|_file0406-1.txt
|_file0406-2.txt
|_file0406-3.txt

　20080407フォルダ
|_file0407-1.txt
|_file0407-2.txt
|_file0407-3.txt

　：
　：

この構成が何百とあります。
これを一括で操作して全てのファイルを同じフォルダに入れたい
と考えています。
つまりこのように。

　総まとめフォルダ
|_file0405-1.txt
|_file0405-2.txt
|_file0405-3.txt
|_file0406-1.txt
|_file0406-2.txt
|_file0406-3.txt
|_file0407-1.txt
|_file0407-2.txt
|_file0407-3.txt

手作業でひとつひとつするにはすごい手間なのでどなたか
なにかの方法で一括でする方法を教えてください。
お願いします。

回答No.1

ZENO888 · ベストアンサー

ファイル名で検索して、全選択で移動する。

回答No.3

kuma3f

思われていることと違っていましたらすみませんが、参考までにWindowsXPでIEのある環境でしたら、次のVBScriptでファイルのコピーはどうでしょうか。
他のファイルを壊してはいけないので「C:\FCOPY」内でしか機能しないようにしています。
「C:\FCOPY」のフォルダーを作成して、まとめたいファイルのあるフォルダを全て「C:\FCOPY」内にコピーしてから行ってください。
スタート→すべてのプログラム→アクセサリ→メモ帳でメモ帳を開き、下記のコードをコピー貼り付けしてください。
貼り付け後、名前を付けて保存で、保存先を「C:\FCOPY」内にしてファイル名を適当な名前で拡張子を.vbsにして保存してください。（例：FCOPY.vbsにして保存をクリック）
このVBSも「C:\FCOPY」内に置いてください。このVBSをクリックして起動したら「C:\FCOPY\コピー先」内にファイルがまとまっていると思います。（「C:\FCOPY\コピー先」は自動で作成されます。）

Dim AplObj,FSysObj
Dim FolObj,FolInf,FilObj,FilInf,ItmObj,ItmObj2,ItmCnt,ItmCnt2,MakFol
Dim PathName,PathName2
'処理
PathName = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
If PathName = "C:\FCOPY\" Then
Set AplObj = CreateObject("Shell.Application")
Set FSysObj = CreateObject("Scripting.FileSystemObject")
MakFol = PathName & "コピー先"
If FSysObj.FolderExists(MakFol) = False Then
FSysObj.CreateFolder MakFol
End If
Set FolObj = AplObj.NameSpace(PathName)
Set FolInf = FolObj.Items()
For ItmCnt=0 To FolInf.Count-1
Set ItmObj = FolInf.Item(ItmCnt)
If ItmObj.IsFolder = True Then
If ItmObj.Name <> "コピー先" Then
PathName2 = PathName & ItmObj.Name
Set FilObj = AplObj.NameSpace(PathName2)
Set FilInf = FilObj.Items()
For ItmCnt2=0 To FilInf.Count-1
Set ItmObj2 = FilInf.Item(ItmCnt2)
FSysObj.CopyFile PathName2 & "\" & ItmObj2.Name,PathName & "コピー先\" & ItmObj2.Name
Next
End If
End If
Next
WScript.Echo "ファイルのコピーが完了しました。"
Else
WScript.Echo "「C:\FCOPY」内で作業してください。"
End If

回答No.2

fifaile

その20080405などのフォルダが入っているフォルダに対して検索を掛けてください。
具体的には、検索ボタンを押した後、ファイルとフォルダ全てを選択、その後検索何も入力せずOKを押します。
すると配下のディレクトリにあるファイルが全て列挙されるので、
切り取って任意のフォルダに貼り付ければOKです。