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

关于split()函数的问题

我在尝试用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() 为正确结果。
不知大家能否帮我解决这一难题，不胜感激。

mccad 发表于 2003-7-28 17:52:00

NewFileName() = Split(CommonDialog1.FileName, Chr(0))

WWWDONG 发表于 2003-8-1 08:52:00

你用的是r2002以下，它的vba为vb5,split为vb6的函数，你可用vb6将split做成dll函数，后在引用
页: [1]
查看完整版本: 关于split()函数的问题