怎么获取获取CommonDialog1.FileName的路径？？？

[flowerkai]

  CommonDialog1.ShowOpen
  Text2.Text = CommonDialog1.FileName
  Dim z As String
  Dim y As String
  z = CommonDialog1.FileTitle
  Print z
  y = CommonDialog1.InitDir
  Print y

y 为什么无任何显示

[Kill2010]

CommonDialog1.InitDir是设置公用对话框初始默认目录的
你没设置，就是空
只有得到的路径，应该从CommonDialog1.FileName分解出来

[flowerkai]

麻烦您，问下怎么分解啊？

[lxq19851204]

CommonDialog1.FileName 返回或设置所选文件的路径和文件名
CommonDialog1.FileTitle 仅仅保存文件名，不包含路径。
CommonDialog1.InitDir 返回或设置初始文件目录

[king06]

需要自己设置.

[lxq19851204]

CommonDialog1.InitDir
这个是你要打开对话框时的路径

CommonDialog1.ShowOpen ‘打开对话框
CommonDialog1.InitDir=“c:\XX” ’你的对话框初始路径为c:\XX

[Kill2010]

    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then Exit Sub
    ss = CommonDialog1.FileName
    For i = 1 To Len(ss)
        cc = Mid(ss, Len(ss), 1)
        If cc = "\" Then Exit For
        ss = Mid(ss, 1, Len(ss) - 1)
    Next i
    Me.Caption = ss

[fzx4936]

left(cdl.filename,instrRev(cdl.filename,"\",-1)-1)

[sonic_andy]

fso.getparentfoldername

[yachong]

[Quote=引用 8 楼 sonic_andy 的回复:]
fso.getparentfoldername
[/Quote]
顶一下

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Set fs = CreateObject("Scripting.FileSystemObject")
    Debug.Print fs.GetParentFolderName(CommonDialog1.FileName)
End Sub