指定したフォルダ配下のファイルを再帰的に検索し、検索したファイルを移動先フォルダにうつすサンプルです。
Const ForReading = 1 '読み込み Const ForWriting = 2 '書きこみ(上書きモード) Const ForAppending = 8 '書きこみ(追記モード) ' 移動元フォルダ Const SrcDir = "C:\移動元" ' 移動先フォルダ Const DstDir = "C:\移動先\" Set FSO = CreateObject(Src) ShowSubfolders FSO.GetFolder(SrcDir) Set FSO = Nothing '指定されたフォルダから再帰的にファイルを検索し、 '移動先フォルダへファイルを移動する。 Sub ShowSubFolders(Folder) For Each File in Folder.Files Fname = File.name Dim fs Dim fn Set fs = WScript.CreateObject("Scripting.FileSystemObject") Set fn = fs.GetFile(Folder & "\" & Fname) Dim strDstFile '移動先 strDstFile = DstDir & Fname fs.MoveFile Folder & "\" & Fname,strDstFile Set fs = Nothing Set fn = Nothing Next For Each Subfolder in Folder.SubFolders 'Foler内のフォルダを列挙する ShowSubFolders Subfolder '再帰呼び出し Next End Sub