フォルダをコピー フォルダの中に入れたい FSO

質問

vbaです。よろしくお願いします。

Sub Sample()
Dim myFSO As Object
Dim MyPath As String

MyPath = "C:\Users\ああああ\Desktop\"

Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFolder MyPath & "コピーしたフォルダーを入れるフォルダー", MyPath & "コピーするフォルダ"
Set myFSO = Nothing

End Sub

こんな感じで、デスクトップにある、"コピーするフォルダ"をコピーして、
デスクトップにある、"コピーしたフォルダーを入れるフォルダー"の中に入れたいのですが
上記のコードを実行しても何も起きません。

コピーしたフォルダーを入れるフォルダーの中身を見ても、空です。

”コピーしたフォルダーを入れるフォルダー”の中に、"コピーするフォルダ"
を入れる方法を教えてください。

回答No.2

osamuy · ベストアンサー

myFSO.CopyFolder MyPath & "コピーしたフォルダーを入れるフォルダー", MyPath & "コピーするフォルダ"
↓
myFSO.CopyFolder MyPath & "コピーするフォルダ", MyPath & "コピーしたフォルダーを入れるフォルダー" & "\"

お礼

おっしゃるとおりにしてみたらうまくできました。
ありがとうございました。勉強になりました。

回答No.1

lv4u

http://www.happy2-island.com/vbs/cafe02/capter00215.shtml

上記ＵＲＬのＶＢＡ記事と比較すると、質問者さんのプログラム記述が間違っているように思えます。

お礼

ご回答ありがとうございます。