
CODE: [Copy to clipboard]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)
CODE: [Copy to clipboard][ Last edited by newxso on 2008-12-2 at 21:08 ]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |