关于split()函数的问题

空明 · 发表于 2003-7-28 13:06:00

我在尝试用CommonDialog打开多个文件时，为分离各个文件名，用了split()函数，但结果却怎么也不对。具体代码如下：
Dim NewFileName() As String
CommonDialog1.filter = "Drawing Files(*.dwg)|*.dwg|" & "All Files(*.*)|*.*|"
CommonDialog1.flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "选择文件..."
CommonDialog1.InitDir = "e:\"
CommonDialog1.ShowOpen
NewFileName() = Split(CommonDialog1.FileName, "")
'因为用监视窗口察看CommonDialog1.FileName各文件之间用间隔，但此时的NewFileName(0) =CommonDialog1.FileName，即split()函数没起作用，但若我
定义CommonDialog1.FileName="E:\pb02009083.dwgpb02009082",则split()函数则
起作用，此时NewFileName() 为正确结果。
不知大家能否帮我解决这一难题，不胜感激。