中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

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

6688
新手上路

积分 7
发帖 7
注册 2008-11-21
状态离线

『楼主』: [已结]VBS中如何指定的文件分别获取其路径名称后缀？

比如

c:\1\a.txt

路径 c:\1\
名称 a
后缀 .txt (或者 txt)

[ Last edited by HAT on 2008-12-2 at 22:05 ]

2008-12-2 17:29

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 2 楼』:

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)

此帖被 +1 点积分点击查看详情

2008-12-2 20:27

newxso
初级用户

l i u s s

积分 73
发帖 101
注册 2008-9-17
来自 GZ
状态离线

『第 3 楼』:

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 ]

此帖被 +1 点积分点击查看详情

2008-12-2 20:51

6688
新手上路

积分 7
发帖 7
注册 2008-11-21
状态离线

『第 4 楼』:

谢谢两位~
2楼的好象是搜索字符来获取的~有点不看不懂~
3楼的很好简单易懂

2008-12-2 21:40

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: