エクセルのＶＢＡで、フォルダごとコピーしたいのですが…

質問

エクセルのＶＢＡで、フォルダごとコピーしたいのですが…
Ｄドライブの”TEST"というフォルダを、同じくＤドライブに"TEST2"という名前でコピーしたいのです。

Private Sub sakusei_Click()

Dim myFSO As New FileSystemObject
myFSO.CopyFolder "D:\TEST", "D:\TEST2"

End Sub

ではうまくいかないのです。
私は初心者なので調べてもよくわからないので、
有識者の方、是非教えてください。
宜しくお願い致します。

回答No.1

misatoanna · ベストアンサー

Visual Basic Editor の [ツール]-[参照設定] で、
"Microsoft Scripting Runtime" にチェックを入れていますか？

お礼

ありがとうございました！！
おかげ様でコピーできました。
もっと勉強して回答者の皆さんのように詳しくなりたいです。

回答No.3

noname#140971

勘違いでした。

単なる参照設定！

回答No.2

noname#140971

[イミディエイト]
? FolderCopy("D:\Test", "D:\Test2")
True

で、コピーできたようです。

Public Function FolderCopy(ByVal F As String, ByVal T As String) As Boolean
On Error GoTo Err_FolderCopy
　　Dim isOK As Boolean
　　Dim fso　As Object

　　isOK = True
　　Set fso = CreateObject("Scripting.FIleSystemObject")
　　fso.CopyFolder F, T
Exit_FolderCopy:
　　FolderCopy = isOK
　　Exit Function
Err_FolderCopy:
　　MsgBox Err.Description & "( FolderCopy)"
　　isOK = False
　　Resume Exit_FolderCopy
End Function

Private Sub sakusei_Click()
　　Dim myFSO As New FileSystemObject

　　myFSO.CopyFolder "D:\TEST", "D:\TEST2"
End Sub

両者の違いは Set文の有無ですね。

Dim fso As FileSystemObject

Set fso = New FileSystemObject