如何获得CommonDialog打开文件的路径

如何获得CommonDialog打开文件的路径

解决方案 »

  1.   

    我只知道如何得到完整的文件名（包括路径）CommonDialog.filename即可，， 不过我想可以写一个小字串处理函数过滤掉文件名吧，
      

  2.   

    你可以用dir函数获取文件名，再用left函数截取前面的就可以了
      

  3.   

    用函数查找第一个"\"出现的位置,
    str = StrReverse(.FileName) '取反
    pos = InStr(str, "\") '第一个"\"出现的位置
    path = StrReverse(Mid(str, pos)),取得路径
    file=StrReverse(Left(str, pos - 1)),取得文件名
      

  4.   

    Private Sub Command1_Click()
        CommonDialog1.ShowOpen
        '取得文件的完整路径及文件名
        strname = CommonDialog1.FileName
        '取得文件名
        dirname = Dir(strname, vbNormal)
        '取得文件名长度
        numlen = Len(dirname)
        '取得文件路径
        strname = Left(strname, Len(strname) - numlen - 1)
    End Sub
      

  5.   

    mid(CommonDialog1.FileName，1，InstrRev(CommonDialog1.FileName, "\")-1)