Copy Folder

How I can copy the folder from one location to another location ?

Copies the contents of folder to another folder

Code:

---

Private Sub Command1_Click()
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\my")
fldr.Copy ("c:\temp")
End Sub

---

Creates another folder and copies the contents of folder to that new folder

Code:

---

Private Sub Command1_Click()
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\folder")
Set fldr = fso.GetFolder("c:\my")
fldr.Copy ("c:\folder")
End Sub

---

And in the end

Code:

---

set fso = Nothing
set fldr = Nothing

---