试试这个: CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then i = Len(CommonDialog1.FileName) While Mid(CommonDialog1.FileName, i, 1) <> "\" i = i - 1 Wend strfullpath = Left(CommonDialog1.FileName, i) MsgBox strfullpath End If
试试这个: CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then i = Len(CommonDialog1.FileName) j=len(commondialog1.filetitle) i=i-j-1 strfullpath = Left(CommonDialog1.FileName, i) MsgBox strfullpath End If 上次看错了,呵呵!
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
i = Len(CommonDialog1.FileName)
While Mid(CommonDialog1.FileName, i, 1) <> "\"
i = i - 1
Wend
strfullpath = Left(CommonDialog1.FileName, i)
MsgBox strfullpath
End If
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
i = Len(CommonDialog1.FileName)
j=len(commondialog1.filetitle)
i=i-j-1
strfullpath = Left(CommonDialog1.FileName, i)
MsgBox strfullpath
End If
上次看错了,呵呵!