请选择 进入手机版 | 继续访问电脑版

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2672|回复: 0

[VB.NET]调用系统的文件夹选择对话框

[复制链接]

497

主题

30

回帖

7170

积分

管理员

积分
7170
发表于 2020-1-17 16:21:22 | 显示全部楼层 |阅读模式
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          Dim _selectedFolder As String = SelectFolder("请选择安装目录", True) '显示选择安装目录界面,同时允许创建新文件夹
          MsgBox(_selectedFolder)
      End Sub
  
      Private Function SelectFolder(ByVal Describe As String, Optional ByVal ShowNewFolder As Boolean = True) As String
          Using nOpen As New System.Windows.Forms.FolderBrowserDialog()
            nOpen.Description = Describe
             nOpen.ShowNewFolderButton = ShowNewFolder
             nOpen.ShowDialog()
             Return nOpen.SelectedPath
         End Using
     End Function
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|爱淘机论坛 ( 鲁ICP备2022040313号-4 )

GMT+8, 2024-3-29 14:30 , Processed in 0.078078 second(s), 23 queries .

Powered by 爱淘机论坛

© 2001-2023

快速回复 返回顶部 返回列表