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

请输入您要查询的考试资料:

 

标题 vbs 获取当前目录的实现代码
内容
    获取当前正执行的VBS的路径,通过Scripting.FileSystemObject组件实现
    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/17 19:07:42