请教本站api函数getfile如何得到多文件的文件名啊？

3xxx

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=300
用以上本站中的getfile函数批量选择多文件的时候，显示了文件路径和文件名，文件名的排列之间有个符号，结果如上图，怎样提取这些文件名呢？向下文中：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4029&page=1#pid798
中的'由文件全路径名称返回文件的函数
Public Function JustFileName(FileName) As String
On Error Resume Next
Dim count As Integer
For count = Len(FileName) - 1 To 1 Step -1
    If Mid(FileName, count, 1) = "\" Or Mid(FileName, count, 1) = "/" Then
        JustFileName = Right(FileName, Len(FileName) - count)
        Exit For
    End If
Next
End Function
如何通过像这样一段函数得到api函数getfile所选择的多文件的文件名啊？谢谢指教！

chmenf087

用split函数看看VB帮助吧很简单

yuanziyou

这个函数在哪下的?能不能传一份

wwswwswws

dim sFileName() as string
dim lUp as long
dim i as long
sfilename=split(filename,chr(0))
lup=ubound(sfilename)
for i = 0 to lup
     debug.print sfinename(i)
next