67 . آشنایی با امکانات file system object (fso) : برای کار بر روی پوشه ها و فایها از قبیل ساختن فایل یا فولدر و یا حذف آنها و یا جابجایی آنها و یا کپی کردن آنها میتوان استفاده کرد . که بصورت زیر میباشد :
1 . copy file و copy folder با این متدها میتوانیم یک چند فیل و یا پوشه را از محلی به محل دیگر کپی کنیم . ساختار کلی و استفاده این دو متد به صورت زیر میباشد :
بهتره با یک مثال ساده شروع کنیم میخواهیم یک عکس بنام اشکان که در درایو d قرار داره رو به داخل درایو f در پوشه ای بنام a کپی کنیم به صورت زیر عمل میکنیم :
یک دکمه داخل یه فرم اضافه کنید و کپشن اون رو بنویسید کپی فایل و نام دکمه رو در قسمت name بزارید cmdcopy حالا روی دکمه دو بار کلیک کرده و دستورات دکمه رو بصورت زیر مینویسیم :
Private Sub cmdcopy_Click()
Set f = CreateObject("scripting . filesystemobject")
F . copyfile "d:\ashkan.jpg" , "f : \a\"
End Sub
برای کپی کردن پوشه بجای copyfile بنویسید copyfolder بصورت زیر :
پوشه ای بنام b در درایو d به داخل پوشه ای بنام a در درایو f کپی میشود.
Private Sub cmdcopy_Click()
Set f = CreateObject("scripting . filesystemobject")
F . copyfolder "d : \b" , "f : \a\"
End Sub
2 . متد createfolder از این متد برای ایجاد یک پوشه استفاده میشود بصورت زیر :
یک پوشه بنام x در داریو f ساخته میشود.
Private Sub cmdcreatefolder_Click()
Set f = CreateObject("scripting . filesystemobject")
F . createfolder "f :\x\"
End Sub
با اضافه کردن یه حلقه for میتونیم پوشه به تعداد زیاد ایجاد کنیم :
Private Sub cmdcreatefolder_Click()
Set f = CreateObject("scripting.filesystemobject")
For i = 1 To 10
F . createfolder "f : \x\" & str( I )
Next i
End Sub
3 . متد createtextfile از این متد برای ساخت فایل استفاده میشود بصورت زیر :
در مثال زیر یک فایل متنی با نام ashkan در پوشه ای بنام a در درایو f ساخته میشود با محتویات متنی Hello - در مثال زیر به طرز استفاده از متد دقت کنید :
Private Sub cmdcreatefile_Click()
Set f = CreateObject("scripting . filesystemobject")
Set x = f.createtextfile( " f:\a\ashkan.txt " , true)
X . writeline ( " Hello ")
x . Close
End Sub
حالا یه حلقه for به برنامه اضافه کنید و بجای writeline بنویسید write ببینید چه اتفاقی رخ میده :
Private Sub cmdcreatefile _ Click()
Set f = CreateObject("scripting.filesystemobject ")
Set x = f . createtextfile( " f :\ a\ ashkan.txt " , True)
For i = 1 To 50
x.write ( " Hello " )
Next i
X . Close
End Sub
4 . متد deletefile و deletefolder برای پاک کردن فایل یا پوشه بکار میرود و ساختار آن بصورت زیر میباشد :
Private Sub cmddeletefile_Click
Set f = CreateObject( " scripting.filesystemobject " )
F . deletefile " f:\a\ashkan.txt "
End Sub
برای استفاده از متد deletefolder بصورت زیر :
Private Sub cmddeletefolder_Click()
Set f = CreateObject( " scripting . filesystemobject " )
F . deletefolder " f:\a\z "
end sub
نظرات ()
