ورود

نسخه کامل مشاهده نسخه کامل : مشکل در کار با FSO (filesystemobject


MichaelQwerty
05-02-2008, 08:31
سلام من می خوام یه فولدرو از جایی به جای دیگه انتقال بدم ولی 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
05-02-2008, 10:04
fso1 رو درست تعریف کردی؟
majid_kntu
05-02-2008, 10:54
اين سه خط رو به بالاي رويداد كليك اضافه كن


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