3xxx 发表于 2012-4-12 21:32:07

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

本帖最后由 3xxx 于 2012-4-12 21:32 编辑


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 发表于 2012-4-15 14:15:26

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

yuanziyou 发表于 2013-12-15 21:52:55

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

wwswwswws 发表于 2013-12-17 09:44:03

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
页: [1]
查看完整版本: 请教本站api函数getfile如何得到多文件的文件名啊？