vb commondialog 如何设置初始化路径啊?

属性FileName中包含有上次选择的文件名（路径＋文件名），
用如下代码可实现：
dim s as string
s=commondialog1.filename
s=left(s,instrrev(s,"\")-1)
commondialog1.InitDir=s

在VB中，对话框（如保存对话框）在下次打开时总是默认为上次保存时的路径，尽管可以在对话框打开前设置initPath,对话框打开时就是设置的路径，但对话框一关闭路径就又变了，如何设置让其不变化，一直都是某路径。因为我的程序中调用的DLL要在当前路径下（DLL中不能设置路径）保存图片，现在程序中只要其他功能的保存对话框一操作，图片都保存到对话框的路径中了，我总不能在调用DLL前弄个对话框，那样太不合理了。现在请教如何设置保存对话框的路径不随保存路径变化啊。记得C#中是可以设置的。

谢谢大家啊

我的程序运行不是楼上那样子的

我的程序中调用一个自定义的matlab的dll
该dll会保存图片，图片保存的路径是系统当前路径（不好设置为固定路径）

我的程序在调用dll完毕后又要调用dll生成的图片

但我的程序中只要运行打开或者保存对话框，系统路径就发生改变
我的程序就不能运行

现在想能不能将打开或者保存对话框的路径固定（C#中可以的），即使上次将路径改成其他位置，它依然不变

CommonDialog1.InitDir = "C:\123" 方法是不行的，因为要运行 CommonDialog1 ，它才会将路径设置为"C:\123"

位置的问题

要把C1.InitDir = App.Path放在C1.Filter前面
如:
on error resume next
C1.CancelError = True
C1.InitDir = App.Path
C1.Filter = "(*.tux)|*.tux|(*.dlc)|*.dlc|(All*.*)|*.*"
C1.DialogTitle = "文件打开" & Date & Time
C1.Action = 1

这个默认路径是保存在注册表中的,也就是只要是系统组件,无论你用什么保存选择了一个目录之后这会保存到注册表

打开也是一样,就像是默认的路径到我的文档一样