CommonDialog打开文件对话框的选择多个文件，如何得到所有文件名？

Question

在VB6中，我用CommonDialog的ShowOpen，将Flags置成cdlOFNAllowMultiselect Or
cdlOFNExplorer在选择多个文件后，FileName的值是形如"E:\Project\mail
mail.vbp
mail.vbw"这
样的东东，中间的空格是不知道是什么的分隔符，打不出来。用一个string赋值过去也
只能得到分隔符前面的部分。
怎么取得选择的所有文件名？

Answer 1

filename=reverse(filename)
do until filename=""
    k=instr(1,filename," ",1)
    if k=0 then
        k=instr(1,filename,"\",1)
        sfile=left(filename,k-1)
        exit do
    endif
    sfile=left(filename,k-1)
    filename=mid(filename,k+1)
loop
把每一个sfile保存起来