中国DOS联盟

比如

c:\1\a.txt

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

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

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 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 ]

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