中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-10 20:52

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » [已结]VBS中如何指定的文件分别获取其路径名称后缀？

可打印版本　907 / 3

第1楼　6688	发表于 2008-12-02 17:29
新手上路　发帖 7　积分 7
[已结]VBS中如何指定的文件分别获取其路径名称后缀？比如 c:\1\a.txt 路径 c:\1\ 名称 a 后缀 .txt (或者 txt) [ Last edited by HAT on 2008-12-2 at 22:05 ]

第2楼　huahua0919	发表于 2008-12-02 20:27
银牌会员　发帖 780　积分 1,608
dim fso,path,path1,filename set fso=createobject("scripting.filesystemobject") path="c:\1\a.txt" a=split(path,"\") for i=0 to ubound(a) if i <> ubound(a) then path1=path1&a(i)&"\" else filename=a(i) end if next Wsh.echo "路径:" &path1 Wsh.echo "文件:" &filename Wsh.echo "扩展名:" &fso.getextensionname(path)

第3楼　newxso	发表于 2008-12-02 20:51
初级用户　发帖 101　积分 73　来自 GZ
Set objFSO = CreateObject("Scripting.FileSystemObject") Set f = objFSO.GetFile("c:\1\a.txt") Wscript.Echo "文件所在驱动器符号: " & objFSO.GetDriveName(f) Wscript.Echo "文件所在路径: " & objFSO.GetAbsolutePathName(f) Wscript.Echo "文件所在目录: " & objFSO.GetParentFolderName(f) Wscript.Echo "文件名: " & objFSO.GetFileName(f) Wscript.Echo "文件基本名: " & objFSO.GetBaseName(f) Wscript.Echo "文件扩展名: " & objFSO.GetExtensionName(f) 'Wscript.Echo "文件名: " & f.Name 'Wscript.Echo "以8.3格式的短文件名: " & f.ShortName [ Last edited by newxso on 2008-12-2 at 21:08 ]

第4楼　6688	发表于 2008-12-02 21:40
新手上路　发帖 7　积分 7
谢谢两位~ 2楼的好象是搜索字符来获取的~有点不看不懂~ 3楼的很好简单易懂

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023