首页 /编程语言和算法/VB6/ASP
 VB6 代码管家-创建文件夹选则对话框
2024年12月8日 21:45
Private Sub Command1_Click()
    Set sh = CreateObject("Shell.Application")
    Set fd = sh.BrowseForFolder(Me.hWnd, "这里填写对话框的标题", 0)
    If TypeName(fd) = "Folder3" Then MsgBox "您选择的文件夹路径为:" & fd.Self.Path, vbOKOnly, "提示"
    'Me.hWnd是“选择文件夹”对话框的父窗口句柄,不关闭对话框不能返回父窗口,改为0没这个效果。
    '第三个参数0改为512不显示“新建文件夹”按钮。
    '代码出处:http://zhidao.baidu.com/link?url=ckGza9Ko6UW4CbxAHhoaasXQAEq2KxaysiWwd0Jv5yWrteS-Ofy2t17L1sU5ufqHV8AN6QUmV8Qec0i3xnYOCq
End Sub


 
全部回复(0)
首页 | 电脑版 |