VB フォルダ選択ダイアログボックス表示

        ' 新しいフォルダの作成を不可
        FolderDialog1.ShowNewFolderButton = False
        'デスクトップを設定
        Desktop_path = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
        ' 初期選択するパスを設定する
        FolderDialog1.SelectedPath = Desktop_path
        ' ダイアログを表示し、戻り値が [OK] の場合は、選択したディレクトリを表示する
        If FolderDialog1.ShowDialog() = DialogResult.OK Then
            Folder_path = FolderDialog1.SelectedPath
        End If
        Me.TextBoxFolder.Text = Folder_path

Windows8/7完全対応 Visual Basic 2013逆引き大全―Visual Studio Professional 2013/Express 2013対応