获取当前文件所在目录

最新推荐文章于 2024-06-27 15:02:16 发布

bankelei6741

最新推荐文章于 2024-06-27 15:02:16 发布

阅读量182

点赞数

原文链接：http://www.cnblogs.com/BeyondTechnology/archive/2011/02/21/1959376.html

版权

'dim s,dir0,dir1,dir2
's=wscript.scriptfullname
'on error resume next
'dir0=left(wscript.scriptfullname,instrrev(s,"\")-1)
'dir1=left(wscript.scriptfullname,instrrev(dir0,"\")-1)
'dir2=left(wscript.scriptfullname,instrrev(dir1,"\")-1)
'msgbox dir0'当前目录
'msgbox dir1'上层目录
'msgbox dir2'上上层目录
Option Explicit
Dim FullFileName
FullFileName = Wscript.ScriptFullName
Dim CurrentPath
CurrentPath = Left(FullFileName,InstrRev(FullFileName,"\") -1)
MsgBox CurrentPath

转载于:https://www.cnblogs.com/BeyondTechnology/archive/2011/02/21/1959376.html