VB中如何使用CommonDialog控件获取当前的路径，不要包含文件名。

With CommonDialog1

.ShowOpen

当前的路径 = Left(.FileName, InStrRev(.FileName, "\") - 1)

End With

其实用vb自带的打包工具是很方便的，首先你用vb 先生成改程序的可执行文件在对应你存放文件的文件目录下，再用打包工具进行打包，在这个过程中注意添加你程序所需要的数据库文件，一定要添加进去，遗漏了程序会出错的。其优点是相对与其他打包工具他自动选择了一些程序运行所需要的文件，省去很多事。

---