[筆記文]My.Computer.FileSystem 資料夾操作 簡介

  • 11760
  • 0
  • 2011-02-10

摘要:[筆記文]My.Computer.FileSystem 資料夾操作 簡介

需求
命名空間Microsoft.VisualBasic.MyServices
類別FileSystemProxy (提供對 FileSystem 的存取)
組件:Visual Basic 執行階段程式庫 (在 Microsoft.VisualBasic.dll 中)

1.檢查目錄是否存在
My.Computer.FileSystem.DirectoryExists("目錄完整路徑")

  1.  
  2.         If My.Computer.FileSystem.DirectoryExists("c:\test") Then
  3.             MsgBox("目錄 c:\test 存在")
  4.         Else
  5.             MsgBox("目錄 c:\test 不存在")
  6.         End If
複製代碼

 

2.建立目錄
My.Computer.FileSystem.CreateDirectory("目錄完整路徑")

  1.  
  2.         '先檢查目錄是否存在
  3.         If My.Computer.FileSystem.DirectoryExists("c:\test") Then
  4.             MsgBox("目錄 c:\test 存在")
  5.         Else
  6.         '不存在就建立
  7.            My.Computer.FileSystem.CreateDirectory("c:\test")
  8.            MsgBox("目錄 c:\test 以建立") 
  9.        End If
複製代碼

 

3.刪除目錄
My.Computer.FileSystem.DeleteDirectory("目錄完整路徑",刪除選項參數)
刪除選項參數,參考連結
DeleteDirectoryOption 列舉型別:指定如果要刪除的目錄包含檔案或目錄時,應該要如何處理。預設值為 DeleteDirectoryOption.DeleteAllContents
UIOption 列舉型別:指定是否視覺化追蹤作業的進度。預設值為UIOption.OnlyErrorDialogs。必要項。 
RecycleOption 列舉型別:指定已刪除的檔案是否應該傳送至 [資源回收筒]。預設值為RecycleOption.DeletePermanently。 
UICancelOption 列舉型別:指定如果使用者按一下 [取消],是否會擲回例外狀況。必要項。

  1.  
  2.         '先檢查目錄是否存在
  3.         If My.Computer.FileSystem.DirectoryExists("c:\test") Then
  4.             '存在就刪除
  5.             '設定刪除目錄和其下檔案和子目錄
  6.             My.Computer.FileSystem.DeleteDirectory("c:\test", FileIO.DeleteDirectoryOption.DeleteAllContents)
  7.             MsgBox("目錄 c:\test 以刪除")
  8.         Else
  9.             MsgBox("目錄 c:\test 存在") 
  10.        End If
複製代碼

 

4.複製目錄
My.Computer.FileSystem.CopyDirectory("要複製的目錄", "要複製的位置", 是否覆寫現有檔案, 當按下取消時是否扔回例外)

  1.  
  2.         '先檢查目錄是否存在
  3.         If My.Computer.FileSystem.DirectoryExists("c:\test") Then
  4.             '存在就複製
  5.             '設定複製時覆蓋所有的檔案,按下取消時不回傳例外
  6.             My.Computer.FileSystem.CopyDirectory("c:\test","c:\複製test",True,FileIO.UICancelOption.DoNothing)
  7.             MsgBox("目錄 c:\test 以複製")
  8.         Else
  9.             MsgBox("目錄 c:\test 存在") 
  10.        End If
複製代碼

 

5.移動目錄
My.Computer.FileSystem.MoveDirectory("要移動的來源路徑", "要移動的目標路徑",是否覆寫現有檔案, 當按下取消時是否扔回例外)

  1.  
  2.         '先檢查目錄是否存在
  3.         If My.Computer.FileSystem.DirectoryExists("c:\test") Then
  4.             '存在就移動
  5.             '設定移動時覆蓋所有的檔案,按下取消時不回傳例外
  6.             My.Computer.FileSystem.CopyDirectory("c:\test","c:\移動test",True,FileIO.UICancelOption.DoNothing)
  7.             MsgBox("目錄 c:\test 以移動")
  8.         Else
  9.             MsgBox("目錄 c:\test 存在") 
  10.        End If
複製代碼

簡單介紹以上

 

已上是本人於2009 整理於 VB研究小站 之 NCIS資訊中心討論區

轉貼過來。


==================================================== 
有些事就該把它當作一種回憶...
一種放在記憶中任隨時間慢慢的侵蝕慢慢的隨風漂泊........
 ===================================================
~~~請支持 點部落 格,點點下方的廣告吧~~~