VBスクリプトでファイルのコピーを2つしたいです

デスクトップ上にある複数ファイル（例：text01とtext02）を他のフォルダにコピーしたいのですが、
どのようにスクリプトを書けば宜しいでしょうか？

C:\Users\0000\Desktop\text01 ←この「text01」と
C:\Users\0000\Desktop\text02 ←この「text02」を


C:\Users\Public ←この「Public」フォルダ内にコピーしたいです。(同じファイルがあった場合上書き)


※「ど」の付くほど素人です...
どなたか、簡単に教えていただけると幸いです。
よろしくお願いいたします。

関係ないかも知れませんが、OSはwindows7 HomePremium です。

No.3 回答者： nda23 回答日時： 2010/12/01 17:07

やはりFileSystemObjectですね。

Dim FSO
Dim OBJ
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each OBJ In FSO.GetFolder("C:\Users\0000\Desktop").Files
　　　　FSO.CopyFIle OBJ.Path, "C:\Users\Public\" & OBJ.Name
Next
これでやってみて。

No.2 回答者： n-jun 回答日時： 2010/11/26 18:11

前回貰った回答のコードを２つ書けばよいのでは？

http://okwave.jp/qa/q6340869.html

回答者さんのコードをお借りして、

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.CopyFile "C:\Users\0000\Desktop\text01.txt", "C:\Users\Public\"
Fso.CopyFile "C:\Users\0000\Desktop\text02.txt", "C:\Users\Public\"
Set Fso = Nothing

とか？
⇒３つなら３回書くとか？

No.1 回答者： imogasi 回答日時： 2010/11/26 17:37

スクリプトって何？

（１）VBSｃriｐｔ
（２）JSｃriｐｔ
（３）その他
（４）エクセルVBA－これもスクリプトと唱える人も居たように思う。
ーー
（１）ならGooGleででも「VBScｒipt CopyFile　」で照会すれば記事が出る。
http://www.mhl.janis.or.jp/~winarrow/vbscript/ht …
http://www.activexperts.com/activmonitor/windows …
CopyFile コピー元フルパス指定,デスチネーションファイル
で仕舞いではない？
＞。(同じファイルがあった場合上書き)
は第３引数をTRUEにする。