ディレクトリまたはフォルダの削除
ディレクトリまたはフォルダを削除するには、RmDir ステートメント を使用します。
【構文】
RmDir path
引数・戻り値
- path ・・・ 削除するディレクトリまたはフォルダの名前を文字列式で指定します。path には、ドライブを含めることもできます。ドライブを指定しない場合は、現在のドライブが対象となります。
存在しないディレクトリまたはフォルダに対して、RmDir ステートメント を実行しようとするとエラーが発生します。
ディレクトリまたはフォルダ内にファイルが含まれている状態で、RmDir ステートメント で、削除しようとするとエラーが発生します。ディレクトリまたはフォルダ内を空にしてから削除してください。
ディレクトリまたはフォルダを中のファイルごと削除したい場合には、FileSystemObject オブジェクト の DeleteFolder メソッド を使用すると便利です。詳細に関しては、FileSystemObject：ファイル・フォルダを削除する（DeleteFile メソッド,DeleteFolder メソッド） を参照してください。
- path ・・・ 削除するディレクトリまたはフォルダの名前を文字列式で指定します。path には、ドライブを含めることもできます。ドライブを指定しない場合は、現在のドライブが対象となります。
存在しないディレクトリまたはフォルダに対して、RmDir ステートメント を実行しようとするとエラーが発生します。
ディレクトリまたはフォルダ内にファイルが含まれている状態で、RmDir ステートメント で、削除しようとするとエラーが発生します。ディレクトリまたはフォルダ内を空にしてから削除してください。
ディレクトリまたはフォルダを中のファイルごと削除したい場合には、FileSystemObject オブジェクト の DeleteFolder メソッド を使用すると便利です。詳細に関しては、FileSystemObject：ファイル・フォルダを削除する（DeleteFile メソッド,DeleteFolder メソッド） を参照してください。
RmDir ステートメント 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Sample_RmDir() Dim delDir delDir = "C:\Documents\tmp\emptydir" If Dir(delDir, vbDirectory) <> "" Then 'フォルダが存在する時、削除 RmDir delDir End If End Sub |
実行結果
実行前（「emptydir」は、空のフォルダ）
実行後
DeleteFolder メソッドで、ファイルごとフォルダを削除する例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_RemoveDirFile() Dim myFSO As Object Set myFSO = CreateObject("Scripting.FileSystemObject") 'フォルダを削除 myFSO.DeleteFolder "C:\Documents\tmp\mydir" Set myFSO = Nothing End Sub |
実行結果
実行前（「mydir」は、テキストファイルを含むフォルダ）
実行後
