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

سلام من می خوام یه فولدرو از جایی به جای دیگه انتقال بدم ولی 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

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

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

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