VB选择文件夹代码

最新推荐文章于 2024-10-13 14:18:42 发布

yuyu622

最新推荐文章于 2024-10-13 14:18:42 发布

阅读量3.8k

点赞数

文章标签： vb shell

本文链接：https://blog.csdn.net/yuyu622/article/details/1829622

版权

Public shlShell As Shell32.Shell
Public shlFolder As Shell32.Folder
Const BIF_RETURNONLYFSDIRS = &H1

Private Sub cmdOpen_Click()
    If shlShell Is Nothing Then
         Set shlShell = New Shell32.Shell
    End If

    Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "请选择文件夹", _
                                            BIF_RETURNONLYFSDIRS)
    If Not shlFolder Is Nothing Then
        txtFilePath.Text = shlFolder.Items.Item.Path
    End If
End Sub