网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文:

 

标题 vbs获取当前路径的代码
范文
    有时候我们需要获取执行当前vbs的路径,那么就可以参考下面的代码,一般用来可以删除自身等操作
    CMD当前路径
    代码如下:
    test = createobject("Scripting.FileSystemObject").GetFolder(".").Path
    Wscript.echo test
    当前VBS路径
    代码如下:
    test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
    Wscript.echo test
    代码如下:
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")
    For Each objItem in colItems
    lmq=lmq & objItem.CommandLine & vbcrlf
    Next
    Wscript.Echo lmq
    如何获得当前.vbs文件运行的目录
    比方说c:\a\a.vbs,如何或得它的目录c:\a,如果把它放在d:\b\b\目录下,获得它的目录为d:\b\b呢?
    代码如下:
    function getfolder()
    getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
    end function
    MsgBox getfolder()
随便看

 

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/16 20:52:13