VBSについて

質問

VBSについて質問です。プログラミング初心者です。

既定フォルダ内のファイルを選択したフォルダ内にコピーするプログラムを組みたく、
色々調べながら作成してみましたが、うまくいきません。

症状として、選択したフォルダではなく、
プログラムを保存しているフォルダにコピーされてしまします。

選択したフォルダに保存するためには、どのようにすればいいでしょうか？
また、下記コードがうまくいかない理由も解説もしてくださると大変助かります。

C:\strFrom　←既定のコピー元フォルダ
C:\strTo　　←プログラム実行時に選択するコピー先フォルダ
C:\VBS　　　←プログラムを保存しているフォルダ　※ここにフォルダ名「strTo」で「strFrom」内のファイルが保存される

Set objFS = CreateObject("Scripting.FileSystemObject") 'ファイルシステムオブジェクト作成

strFrom = "C:\strFrom" 'コピーするフォルダのパス

Set shla = WScript.CreateObject("Shell.Application") 'Shellの呼び出し

Set strTo = shla.BrowseForFolder(0, "フォルダを選択して下さい", &H1) 'パス取得

WScript.echo strTo.Items.Item.Path '取得パス確認

objFS.CopyFolder strFrom, strTo 'ファイルコピー

回答No.1

dell_OK · ベストアンサー

こうじゃないでしょうか。
objFS.CopyFolder strFrom, strTo.Items.Item.Path 'ファイルコピー

お礼

出来ました！とても助かりました。
本当にありがとうございます。<(_ _ ) >