Question

vbs 选择文件，获取文件路径，并彰显出来，非文件夹

如题，强调一点，不是文件夹路径，是文件的路径，还有要保证能成功

Answer 1

     Dim oDLG,i 
     Set oDLG = CreateObject("MSComDlg.CommonDialog")
     With oDLG
         .DialogTitle = "打开文件"
         .FilterIndex = 1
         '.flags = 512 '设置多选文件选项, 如不需要则删除此行
         .MaxFileSize = 255
         .ShowOpen '选择其他内容:.ShowPrinter,.ShowColor,ShowFont
         '.Color=Screen.ActiveForm.ForeColor
         '.ShowColor
         If .FileName <> "" Then
             OpenFileDlg = .FileName
             msgbox OpenFileDlg,,"你选择的文件名是："
            i=instrrev(OpenFileDlg,"\")
             if i>0 then OpenFileDlg=left(OpenFileDlg,i-1)
             msgbox OpenFileDlg,,"你选择的文件夹是："
         End If
     End With
     Set oDLG = Nothing