VB6.0 在代碼中直接調用 文件打開對話框，不使用windows控件

    Dim fileDlg As Object           ' 文件對話框
       
    
    ' 變量初始化
    Set fileDlg = CreateObject("MSComDlg.CommonDialog")

  
    ' 打開附件
     fileDlg.DialogTitle = "選擇附件文件"
    fileDlg.Filter = "Excel (*.xls;*.xlsx)|*.xls;*.xlsx|" & _
                    "Word (*.doc;*.docx)|*.doc;*.docx|" & _
                    "文本文件(*.txt)|*.txt|" & _
                    "壓縮文件(*.rar;*.zip)|*.rar;*.zip|" & _
                    "PDF(*.pdf)|*.pdf"
    fileDlg.FilterIndex = 2
                    
    fileDlg.ShowOpen
    
    If fileDlg.FileName <> "" Then
        sourceFilePath = fileDlg.FileName       ' 取得附件路徑
    Else
        rtnResult = True    ' 未打開文件的時候 就不提示錯誤消息了，所以返回 True
        GoTo EndHandle
    End If