ぷろぐらむノート

フォルダごとフォルダ内のファイル、サブフォルダ、を削除する方法を記載します。

Directoryクラスを使用する方法

Dim sPath As String = "C:\work"

'フォルダを削除する
System.IO.Directory.Delete(sPath)

'サブフォルダ・ファイル全て削除する
'読み取り専用ファイルがあるとエラーとなる(中途半端に消される)
System.IO.Directory.Delete(sPath, True)

 

DeleteDirectory メソッドを使用する方法

Dim sPath As String = "C:\work"

'フォルダを削除する
My.Computer.FileSystem.DeleteDirectory(sPath, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)

'サブフォルダ・ファイル全て削除する
My.Computer.FileSystem.DeleteDirectory(sPath, FileIO.DeleteDirectoryOption.DeleteAllContents)

 

DirectoryInfo クラスを使用する方法

Dim sPath As String = "C:\work"

Dim finfo As New System.IO.DirectoryInfo(sPath)

'フォルダを削除する
finfo.Delete()

'内部のサブフォルダも削除する
finfo.Delete(True)

 

フォルダとフォルダ内の全てのファイル、フォルダをコピーする方法を記載します。

My.Computer.FileSystem.CopyDirectory メソッドを使用する方法

Dim sPath As String = "C:\work"

'フォルダをコピーする
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK")

Dim sPath As String = "C:\work"

'フォルダをコピーする（既存のファイルを上書する）
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK", True)

Dim sPath As String = "C:\work"

'フォルダをコピーする（確認ダイアログを表示する）
My.Computer.FileSystem.CopyDirectory(sPath, "C:\BK", _
    FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)