标题: [已结]VBS中如何指定的文件分别获取其 路径 名称 后缀？ [打印本页]
作者: 6688 时间: 2008-12-2 17:29 标题: [已结]VBS中如何指定的文件分别获取其 路径 名称 后缀？
比如
c:\1\a.txt
路径 c:\1\
名称 a
后缀 .txt (或者 txt)
[ Last edited by HAT on 2008-12-2 at 22:05 ]
作者: huahua0919 时间: 2008-12-2 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)
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)
作者: newxso 时间: 2008-12-2 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 ]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
作者: 6688 时间: 2008-12-2 21:40
谢谢两位~
2楼的好象是搜索字符来获取的~有点不看不懂~
3楼的很好简单易懂