关于Shell文件夹浏览器对话框的问题请教

BaoChengReng　发表于：2011-11-08 10:57:11 　

昨天看到江雨先生的大作：“Shell文件夹浏览器对话框”一文，很感兴趣，但不成功，今就遇到的问题向您请教，望不吝赐教为盼。

1.把您的程序直接打开，没有问题；
2.把您的程序作为一个窗体考到我的系统中，再打开您的程序，恰报错如下：“方法和数据成员未找到”

在下面这段编程中 MyFolder.Self.Path 的 Self 未找到，不知为什么？
我使用的office2003，并且在类型库中也引用Microsoft Shell Controls And Automation

'选定文件夹显示文本框
Private Sub Command5_Click()
    Dim MyShell As New Shell
    Dim MyFolder As Folder

    Set MyFolder = MyShell.BrowseForFolder(0, "请选择文件夹：", &H10)

    If MyFolder Is Nothing Then Exit Sub
       MsgBox MyFolder.Self.Path

End Sub

Top

叶海峰发表于：2011-11-08 17:04:03

Microsoft Shell Controls And Automation的引用路径如下,在引用那里浏览添加就可以了
C:\WINDOWS\system32\SHELL32.dll

Top

BaoChengReng 发表于：2011-11-09 14:32:06

问题已经解决，原来类型库光在引用中挑钩增加引用是无效的，必须浏览文件，打开文件确认才生效。而且我是打开二次后才生效，为什么我不清楚。谢谢版主的提示。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

关于Shell文件夹浏览器对话框的问题请教