如何用公用对话框打开多个文件？

Question

设置对话框的 Flags 为 cdlOFNAllowMultiselect（允许选择多个文件） 和 cdlOFNExplorer （Win9x文件对话框风格） ；加大文件名缓冲区大小以保证有足够的缓冲来保存返回的文件名，即设MaxFileSize 的值，该值缺省为255，最大为32K，可将其设为 8192 (8k)；显示对话框，当用户选择多个文件是，所有的文件都保存在 FileName 中，文件名之间是用零字符隔开，第一个是目录名，从第二个开始才是文件名。例子：on error goto NoSelect '当用户取消打开文件是，跳至 NoSelectdlg.Flags=cdlOFNExplorer + cdlOFNAllowMultiselect '允许选择多文件
dlg.MaxFileSize=8192 '文件名缓冲大小
dlg.ShowOpen '显示打开对话框
FileArray=split(dlg.FileName,chr(0)) '分离各个文件
for i=1 to UBound(FileArray)
    MsgBox FileArray(0) & "\" & FileArray(i) '显示每个文件的完整路径
nextexit subNoSelect:
    MsgBox "取消打开文件"