エクセルマクロでフォルダのコピーがしたい

質問

こんにちわ
色々調べてフォルダのコピーはできたのですが、色々いじっていて分からないことが出てきたので質問に来ました。

やりたいことはフォルダをコピーしたいのですが、それぞれ名前を自動で変えようと思い下記(1)を元に下記(2)を作ってみましたが、動きませんでした。

(1)いくつかのサイトを見て動いたマクロ
sub test()
Dim myFSO As New FileSystemObject
myFSO.CopyFolder "C:\test", "C:\test2"
End Sub

(2)ちょっといじって動かないマクロ
sub test()
Dim myFSO As New FileSystemObject
Dim name As String
Dim name2 As String

name = "C:\test"
name2 = "C:\test2"

myFSO.CopyFolder "name", "name2"
End Sub

「パスが見つかりません」と出てきたので、読み込んでいないのだとは思うのですが、どうしたら動くかアドバイスをいただきたいです。
よろしくお願いします。

回答No.1

myRange · ベストアンサー

＞myFSO.CopyFolder "name", "name2"

変数を""で囲むと、それは変数ではなくただの文字列になります。

"name"　が、name　という文字列になるということです。

で、""を外してやります。

myFSO.CopyFolder name, name2

以上です。

お礼

初歩の初歩でしたね＾＾；
気づかなかったですToT
ありがとうございました＾＾

回答No.2

shino719

> myFSO.CopyFolder "name", "name2"

上記の行のname、name2は変数なので、
ダブルコーテーションで括る必要なないと思います。

ダブルコーテーションで括ってしまうと
nameというフォルダをname2にリネームして
コピーする処理になってしまうと思います。

正しくは
myFSO.CopyFolder name, name2

お礼

初歩の初歩でしたね＾＾；
気づかなかったですToT
ありがとうございました＾＾