比如
c:\1\a.txt
路径 c:\1\
名称 a
后缀 .txt (或者 txt)
[ Last edited by HAT on 2008-12-2 at 22:05 ]
c:\1\a.txt
路径 c:\1\
名称 a
后缀 .txt (或者 txt)
[ Last edited by HAT on 2008-12-2 at 22:05 ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]VBS中如何指定的文件分别获取其 路径 名称 后缀？
查看 871 回复 3
楼 主
[已结]VBS中如何指定的文件分别获取其 路径 名称 后缀？
发表于 2008-12-02 17:29 · 中国 广东 广州 电信
第 2 楼
发表于 2008-12-02 20:27 · 中国 江苏 苏州 电信
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 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| 6688 | +1 | 2008-12-02 21:43 |
第 3 楼
发表于 2008-12-02 20:51 · 中国 广东 广州 海珠区 电信
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 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| 6688 | +1 | 2008-12-02 21:43 |
第 4 楼
发表于 2008-12-02 21:40 · 中国 广东 广州 电信
谢谢两位~
2楼的好象是搜索字符来获取的~有点不看不懂~
3楼的很好简单易懂
2楼的好象是搜索字符来获取的~有点不看不懂~
3楼的很好简单易懂
论坛跳转: