打开文件对话框

Question

用commondialog控件的showopen方法

Answer 1

Const OFN_ALLOWMULTISELECT = &H200& '打开多个文件
     Const cdlOFNExplorer = &H80000      'commandialog的样式      CommonDialog1.Flags = &H200
     CommonDialog1.InitDir = App.Path     '初始化路径，可不设
     CommonDialog1.Filter = "超文本文件 *.htm|*.htm|文本文件 *.txt|*.txt" '过滤器
     CommonDialog1.filename = ""          '初始化filename 为空    
     CommonDialog1.ShowOpen               '打开对话框
     CommonDialog1.filename = CommonDialog1.filename & Chr(32)  ' 文件名放入filename 中，多文件时可以当数组使用,直接取出

Answer 2

UP，先添加一个部 件commondialog。