VB.NETでフォルダ・ディレクトリを操作する方法まとめ

VB.NETでフォルダ・ディレクトリを操作する方法をいくつか紹介します。

フォルダの存在チェックをする方法

ここでは、VB.NETでフォルダの存在チェックをする方法を紹介します。

VB.NETでフォルダの存在チェックをするには、Existsメソッドを使います。

<サンプル>

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim chk As Boolean
chk = System.IO.Directory.Exists(TextBox1.Text)

If chk = True Then
MsgBox(“存在します。”)
Else
MsgBox(“存在しません。”)
End If

End Sub
End Class

System.IO.Directory.Exists(TextBox1.Text)」でテキストボックス1に入力したフォルダが存在するかチェックしています。存在する場合はtrue、存在しない場合はfalseを返します。

フォルダの中の全てのフォルダ名を取得する方法

ここでは、VB.NETで任意のフォルダの中の全てのフォルダ名を取得する方法を紹介します。

VB.NETで任意のフォルダの中の全てのフォルダ名を取得するには、GetDirectoriesメソッドを使います。

<サンプル>

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.DataSource = IO.Directory.GetDirectories(“C:\wk”)
End Sub
End Class

ListBox1.DataSource = IO.Directory.GetDirectories(“C:\wk”)」でC直下のWKフォルダにある全てのフォルダ名を取得しています。

任意のフォルダの中の全てのファイル名を取得する方法

ここでは、VB.NETで任意のフォルダの中の全てのファイル名を取得する方法を紹介します。

VB.NETで任意のフォルダの中の全てのファイル名を取得するには、GetFilesメソッドを使います。

<サンプル>

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox1.DataSource = IO.Directory.GetFiles(“C:\wk”)
End Sub

ListBox1.DataSource = IO.Directory.GetFiles(“C:\wk”)」でC直下のWKフォルダにある全てのファイル名を取得しています。

年月日付きのフォルダを作成する方法

ここでは、VB.NETで年月日付きのフォルダを作成する方法を紹介します。

VB.NETで年月日付きのフォルダを作成するには、CreateDirectoryメソッドを使います。

<サンプル>

Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Dim d = DateTime.Now
System.IO.Directory.CreateDirectory(“C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”))

End Sub

End Class

Dim d = DateTime.Now」で現在の日付を取得しています。
System.IO.Directory.CreateDirectory(“C:\wk\test” & d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”))」でフォルダ作成をしています。フォルダ名に「& d.Year & d.Month.ToString(“00”) & d.Day.ToString(“00”)」を付与することで年月日が付与されたフォルダが作成できます。結果は2018年1月2日なら「test20180102」と言うフォルダが作成されます。

フォルダをサブフォルダごと削除する方法

ここでは、VB.NETでフォルダをサブフォルダごと削除する方法を紹介します。

VB.NETでフォルダをサブフォルダごと削除するには、DELETEメソッドを使います。

<サンプル>

Public Class Form1
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

System.IO.Directory.Delete(“C:\wk\test”, True)

End Sub
End Class

System.IO.Directory.Delete(“C:\wk\test”, True)」でtestファルダとサブフォルダを削除しています。第二引数がtrueの場合、サブフォルダも削除します。第二引数がfalse、もしくは存在しない場合はサブフォルダは削除しません。第二引数がfalse、もしくは存在しない場合にサブフォルダが存在するとエラーになります。