关于CommonDialog的一个棘手问题？急！在线等待！

Question

CommonDialog：
...
    CmnDlg.InitDir = "c:\dpos\seq"
    CmnDlg.DialogTitle = "aa"
    CmnDlg.Flags = cdlOFNHideReadOnly
    CmnDlg.Filter = "aa(*.csv)|*.csv"
    On Error GoTo Err_rtn2
    CmnDlg.CancelError = True
    CmnDlg.ShowOpen
    On Error GoTo Err_rtn
    PathName = CmnDlg.FileName
    strFileName = Dir(PathName)
...以上的控件属性设定后，在文件对话框中选择要打开的文件，当路径是C盘的时候，
执行以下操作：
Shell "C:\Dpos\Exe\" & "DPZ720" & ".EXE", 1正常执行当路径是E盘的时候，执行以下操作：
Shell "C:\Dpos\Exe\" & "DPZ720" & ".EXE", 1弹出异常。“文件没有发现”产生上述的原因和具体解决方法？？？急！在线等待！

Answer 1

CommonDialog的初始路径设置到C盘后，用CommonDialog选择其他盘下的文件时，程序的相对路径就被改变。应该如何解决？

Answer 2

不知道你说的是什么意思！
既然你用了commondialog那么
你用Shell "C:\Dpos\Exe\" & "DPZ720" & ".EXE", 1限定路径与文件名干吗？？
你的commondialog用来干吗的？？
 

Answer 3

CmnDlg.filename=""   '加上这一句，应该就可以了CmnDlg.InitDir = "c:\dpos\seq"
    CmnDlg.DialogTitle = "aa"
    CmnDlg.Flags = cdlOFNHideReadOnly
    CmnDlg.Filter = "aa(*.csv)|*.csv"
    On Error GoTo Err_rtn2
    CmnDlg.CancelError = True
    CmnDlg.ShowOpen
    On Error GoTo Err_rtn
    PathName = CmnDlg.FileName
    strFileName = Dir(PathName)