VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim selectedFolder As String

    'C:\Workを選択された状態にする
    FolderBrowserDialog1.SelectedPath = "C:\Work"

    '説明を表示する
    FolderBrowserDialog1.Description = "開発プロジェクトが存在するフォルダを選択してください！！"

    'ダイアログを表示する
    If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
        '選択されたフォルダを取得
        selectedFolder = FolderBrowserDialog1.SelectedPath

        MessageBox.Show(selectedFolder & " が選択されました。")
    End If
End Sub