发布网友 发布时间:2024-10-24 12:54
共2个回答
热心网友 时间:11小时前
With CommonDialog1
.ShowOpen
当前的路径 = Left(.FileName, InStrRev(.FileName, "\") - 1)
End With
热心网友 时间:11小时前
A = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle)) '获取路径不包括文件名
热心网友 时间:11小时前
With CommonDialog1
.ShowOpen
当前的路径 = Left(.FileName, InStrRev(.FileName, "\") - 1)
End With
热心网友 时间:11小时前
A = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle)) '获取路径不包括文件名