如何在COMMONDIALOG控件中取得路径

喜之郎

我想实现选择一组文件再后作操作，但是VBA里面只支持COMMONDIALOG这个控件，在选择不同路径后无法取得文件的路径信息，且其FILENAME属性只支持256各字符，有可能不够多，我该怎么办？

Rowen

可以适当设置以下属性: With CommonDialog1 .Flags = &H200 + &H4 + &H80000'对话框形式 .DialogTitle = "你的标题." .Filter = "所有文件(*.*)|*.*" .MaxFileSize = 512 * 10 '最大 32K .ShowOpen End With 当切换路径时,可以先行保存已选文件.

joneslee

多谢，但是由于我选择的是一组文件，commondialog.filename返回的是包含路径和所有选择的文件名的一个常常的字符串，如"C:\MY FILES\1.HTM 2.HTM 3.HTM"我仍然不能很方便地获得文件的路径信息，而且我发现commondialog.filename中包含空格在返回的字符串中不是我们看到的空格，而是％，难道必须要经过字符串处理才可以吗？

Rowen

我试了下一,就是空格,从这个字串中取路径应该是可以的.

鱼之乐

如果选择了多个文件，则Filename属性返回值格式为"路径_文件名1_文件名2_…"（_为字符Chr$(0)而非空格）。分离的思路大致如下：先得到所选择文件的路径，然后将其从Filename字符串中去除，这样就只剩下了文件名。而这些文件名又有字符Chr$(0)分隔，剩下的就很好办了，即便文件名中有空格（Chr$(32)），也能正确的实现分离。 所以，现在关键的问题是如何获取所选择文件的路径。VB中有一个内建的函数CurDir()，它能返回当前的路径。在CommonDialog中改变路径会产生PathChange事件，这也将同时改变CurDir()函数的值，使其始终指向被选择的路径。因此，我们使用CruDir()函数就能正确得到所选择文件的路径。但要注意，这个操作必须在下次PathChange事件发生之前调用，否则其值会随之而改变。建议在CommonDialog的ShowOpen方法之后立即调用。 同时需要注意的是，用CurDir()函数获取路径时，如果是根目录，则最后一个字符为"\"，不是根目录时则没有。例如，如果当前的路径为C:\，那么CurDir()="C:\"；而当前路径为C:\Pwin95时，CurDir()="C:\Pwin95"，这就需要在程序中加以区别。

joneslee

多谢，这十分有用！

chenhuafu

这个精华贴，沉了4年了。

yiyiyicz

学习了
谢谢