如果带有文件夹还可以这样处理：
Dim s As String = Tables("表A").Current("第一列")
s=filesys.GetName(s) '得到的是 asss.jpg
s = s.SubString(0,s.LastIndexOf("."))output.show(s)
加好友 
发短信
Post By：2013/6/11 9:42:00 [显示全部帖子]
