vbs判断当前目录是否是根目录

batman

dim path,code
set wshshell=createobject("wscript.shell")
path=wshshell.currentdirectory:code="在"
set objfso=createobject("scripting.filesystemobject")
set objtemp=objfso.opentextfile(path&"\temp",2,true)
set objfile=objfso.getfile(path&"\temp")
if objfile.drive&"\"<>path then code="不"&code
wsh.echo "程序"&code&"根目录下"
objtemp.close
objfso.deletefile(path&"\temp")
set objtemp=nothing
set objfile=nothing
set obfso=nothing
set wshshell=nothing
复制代码

[ 本帖最后由 batman 于 2009-4-6 13:56 编辑 ]

batman

又想了下，不用这么麻烦，利用right函数截取字符就可以了：

dim code
code=""
set wshshell=createobject("wscript.shell")
if right(wshshell.currentdirectory,1)<>"\" then code="不"
wsh.echo "当前"&code&"是在根目录下"
set wshshell=nothing
 
复制代码