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

batman

1. 
   
2. dim path,code
   
3. set wshshell=createobject("wscript.shell")
   
4. path=wshshell.currentdirectory:code="在"
   
5. set objfso=createobject("scripting.filesystemobject")
   
6. set objtemp=objfso.opentextfile(path&"\temp",2,true)
   
7. set objfile=objfso.getfile(path&"\temp")
   
8. if objfile.drive&""<>path then code="不"&code
   
9. wsh.echo "程序"&code&"根目录下"
   
10. objtemp.close
    
11. objfso.deletefile(path&"\temp")
    
12. set objtemp=nothing
    
13. set objfile=nothing
    
14. set obfso=nothing
    
15. set wshshell=nothing
    

复制代码

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

batman

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

1. dim code
   
2. code=""
   
3. set wshshell=createobject("wscript.shell")
   
4. if right(wshshell.currentdirectory,1)<>"" then code="不"
   
5. wsh.echo "当前"&code&"是在根目录下"
   
6. set wshshell=nothing
   

复制代码