مشکل در کار با FSO (filesystemobject

[MichaelQwerty]

سلام من می خوام یه فولدرو از جایی به جای دیگه انتقال بدم ولی error میده؟؟؟
اینم دستورش:

Private Sub Command4_Click()
Source = Dir1.List(Dir1.ListIndex)
Target = InputBox("Enter Dir Target", "Copy dir", "")
Call fso1.MoveFolder(Source, Target)
Dir1.Refresh
End Sub

[mehdibarghi]

fso1 رو درست تعریف کردی؟

[majid_kntu]

اين سه خط رو به بالاي رويداد كليك اضافه كن

On Error Resume Next
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")