选择目录对话框中，点击“取消”按钮后报错？

[netrope]

我在程序中创建了一个选择目录的对话框，当点击“确定”按钮时是正常的，但当我点击“取消”按钮时就报错，这是为什么？应该怎么改？

源代码如下：
Private Sub brwBtn_Click()
Set spShell = CreateObject("Shell.Application")
Set spFolder = spShell.BrowseForFolder(0, "选择目录:", 0)
Set spFolderItem = spFolder.Self
spPath = spFolderItem.Path
spPath = Replace(spPath, "\", "\")
End Sub

[Anlige]

选择取消的时候也是有返回值的~之不过是不符合你需要的返回值~

[Anlige]

有一个属性是用来决定点取消是否返回错误的,设置这个属性为true,然后根据err来决定是否继续执行下面的代码(若err.number>0的话证明你点了取消,就不必要执行下面的饿程序了,否则继续执行下面的程序)

[嗷嗷叫的老马]

顶顶睡觉.

[UltraBejing]

不明LZ在说什么