指定したフォルダ配下のファイルを再帰的に検索し、検索したファイルを移動先フォルダにうつすサンプルです。

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

Pocket