سلام
کدی میخوام که باهاش بتونم یک پوشه رو از جایی به جای دیگه کپی کنم
محسن واژدی
سه شنبه 02 خرداد 1391, 18:25 عصر
سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
Dim fso
Set fso = CreateObject("scripting.FileSystemObject")
Call fso.CopyFolder("C:\Dir1", "C:\Dir1-Copy", True)
End Sub