如何取得“C:\kdfg\kgf\df.doc”中的文件名df.doc,谢谢 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 引用Microsoft Scripting Runtime Dim fs As New FileSystemObject Dim sFullPath As String, sBaseName As String sFullPath = "C:\kdfg\kgf\df.doc" sBaseName = fs.GetBaseName(sFullPath) sBaseName = fs.GetBaseName(sFullPath)改为sBaseName = fs.GetFileName(sFullPath) dim aa=split("C:\kdfg\kgf\df.doc","\")t=ubound(a)msgbox(a(t)) 09年软件设计师考试中有没有VB的考试? 实进错误'3704' 对像关闭时,不允许操作 谁有vb 关于pdf控件的代码 参考一下?多谢了 简单的问题 请教如何将内存中的图像保存为BMP格式文件 请教各位ADO高手,如何移除一个ADO的Recordset对像某个字段。 保存对话框 为什么我的COMMAND1(index)。click 不响应 怎么将一个AVI文件分解成很多张JPG呢?? 高分求助 vb新手:请高手帮忙 怎么现在变得那么少人了...很郁闷哦
Dim sFullPath As String, sBaseName As String
sFullPath = "C:\kdfg\kgf\df.doc"
sBaseName = fs.GetBaseName(sFullPath)
改为
sBaseName = fs.GetFileName(sFullPath)
dim a
a=split("C:\kdfg\kgf\df.doc","\")
t=ubound(a)
msgbox(a(t))