استفاده از شی ء File System Object در ویژوال بیسیک
این شیء قابلیت کار با Drive , Folder , File , TestStream را دارد یعنی شما می توانید پوشه و یا فایلی را از مسیری به مسیر دیگر کپی , حذف و یا منتقل کنید و هم چنین می توانید پو شه ای را در مسیر مورد نظر ایجاد کنید .
برای افزودن این شیء به برنامه تان از منوی Project آیتم Refrencese را انتخاب کنید و از آن آیتمMicrosoft Script Runtime را تیک می زنید . اکنون نوبت به تعریف یک متغیر از نوع ّFso می باشد
Dim Fso As New FileSystemObject

در ضمن لازم به ذکر است که App.path مسیر جاری را که برنامه اجرایی در آن قرار دارد را بر می گر داند .



Fso.CopyFile App.Path & "\text.txt", "C:\", True ' True For Ovwerwrite

fso.MoveFile App.Path & "\text.txt", "C:\"  ' For Move File Of Current Path to "C:\" Path

fso.DeleteFile "c:\text.txt"

همین عملیات بالا را می توان برای Folder هم اجرا کرد . همان طور که متوجه شده اید این شیء بسیار مهم است و می تواند کاربرد های زیادی برایتان داشته باشد مثلاً من در زیر برنامه ای می نویسم که بتواند فایلی را در پو شه System32 ویندوز کپی کند خوب بر ای اینکه بتوان پوشه ویندوز را پیدا کنیم از یک API استفاده می کنم چون امکان داره ویندوز داخل پوشه هایی غیر از نام Windows باشد این کار بر ای بر نامه هایی که می خواهید فایلی را در پوشه ویندوز کپی کنی دکاربرد دارد مثلاً شما می خواهید فونتی را در پوشه font ویندوز کپی کنید.



Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _

"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long _

) As Long

Dim fso As New FileSystemObject

Public S As String

PublicSysDirectory As Long



Private Sub Command1_Click()

         fso.CopyFile App.Path & "\vb.txt", S + "\System32\", True

End Sub

 


Private Sub Form_Load()

        S = Space(255)

       'Get the Windows directory

       WinDirectory = GetWindowsDirectory(S, 255)

        S = Left$(S, WinDirectory)



        '#######################################



        LblSource.Caption = "Source : " & App.Path & "\vb.txt"

        LblDestination.Caption = "Destination : " & S & "\System32\"

End Sub