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()

赞 (0)

相关推荐

  • vbs下一些取特殊路径的方法总结

    1.用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder),很遗憾的是,SpecialFolder常数只有3个,0-2,0对应WindowsFolder,就是你的Windows文件夹,如果你的系统装在C盘的话,那么返回的就是"C:\Windows"这个路径字符串.1对应SystemFolder,GetSpecialFolder(1)返回"C:\Windows\system32&

  • 批量替换快捷方式目的路径的VBS脚本

    可以替换指定目录及其子目录下所有的快捷方式,自己指定存放快捷方式的路径.要被替换的字符串和希望替换成的字符串,然后双击即可运行. 下面为代码,不很复杂,:) 复制代码 代码如下: On Error Resume Next  '替换某文件夹及其子文件夹下的所有快捷方式的指向路径 strFolderPath="D:\Program Files\TrueLaunchBar\Shortcut\File\ Style" '快捷方式的路径  strToReplace="\SOFTWARE

  • VBS中解决带空格路径的三种方法

    方法一: Set wshell=CreateObject("WScript.Shell") wshell.Run """C:\Program Files\360\360se\360se.exe""",5,True Set wshell = Nothing 方法二: temp="C:\Program Files\360\360se3\360se.exe" path = Chr(34) & temp &

  • 用vbs实现的确定共享文件夹的本地路径？

    如何确定共享文件夹的本地路径? 问: 您好,脚本专家!如果有 UNC 路径(例如 \\server1\test),可以使用脚本确定共享文件夹(例如 C:\Scripts\Test 文件夹)的本地路径吗? -- JVK 答: 您好,JVK.是的,您说得没错 噢,对了:我们几乎忘了.您能使用脚本确定共享文件夹的本地路径吗?您当然可以(尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些).但如果这确实是您想要做的,那么这就告诉您该如何去做: 复制代码 代码如下: strPath = "\\atl-f

  • VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件

    VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件

    昨天下载并且安装了Updater Application Block后,需要执行一个Deploy.vbs的文件,鄙人才疏学浅,这个小问题竟然也花费了我不少心机. 现在把结论共享一下. 首先,我的vbs文件关联已经被"豪杰"夺取了.我双击Deploy.vbs就会打开豪杰,比较郁闷.但是我用了打开方式,试了浏览器.cmd,都无济于事. 今天,我想到这个问题后,就有想法去Microsoft的News Group上去问一问.然后又去了CSDN的全文检索.果然很争气,我的关键字只是vbs,执行,

  • vbs中获取脚本当前路径的2个方法

    方法一: 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path 方法二: 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

  • vbs获取当前路径的代码

    CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

  • Python获取当前路径实现代码

     Python获取当前路径实现代码 import os,sys 使用sys.path[0].sys.argv[0].os.getcwd().os.path.abspath(__file__).os.path.realpath(__file__) sys.path是Python会去寻找模块的搜索路径列表,sys.path[0]和sys.argv[0]是一回事因为Python会自动把sys.argv[0]加入 sys.path. 如果你在C:\test目录下执行python getpath\getp

  • java获取系统路径字体、得到某个目录下的所有文件名、获取当前路径

    java获取系统路径字体.得到某个目录下的所有文件名.获取当前路径 复制代码 代码如下: package com.liuxing.test; import java.awt.GraphicsEnvironment;import java.io.File;public class Test { private static GraphicsEnvironment environment; /**  * @param args  */ public static void main(String[]

  • .NET获取当前路径的方法汇总

    以下汇总了.NET(包括ASP.NET/WinForm等)获取当前路径的各种方法 //获取当前进程的完整路径,包含文件名(进程名).   string str = this.GetType().Assembly.Location;   result: X:\xxx\xxx\xxx.exe (.exe文件所在的目录+.exe文件名) //获取新的 Process 组件并将其与当前活动的进程关联的主模块的完整路径,包含文件名(进程名).   string str = System.Diagnosti

  • vbs 获取当前目录的实现代码

    CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

  • VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w

  • VC获取当前路径及程序名的实现代码

    一.获取当前运行目录的绝对路径 1.使用GetCurrentDirectory函数 假设程序路径为D:\Test\tst.exe,执行GetCurrentDirectory函数 char pBuf[MAX_PATH]; GetCurrentDirectory(MAX_PATH,pBuf); pBuf="D:\Test" 但是如果使用CFileDialog.CFile::Open等函数后,设置不当则会导致再次获取当前路径值改变.所以,如要避免当前路径改变,如果使用CFileDialog,

  • 使用vbs获取雅虎汇率

    使用vbs获取雅虎汇率 Function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn =

  • 如何使用python3获取当前路径及os.path.dirname的使用

    这篇文章主要介绍了如何使用python3获取当前路径及os.path.dirname的使用,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 方法一: import sys,os os.getcwd()#然后就可以看见结果了 方法二: import os os.path.dirname(os.path.realpath('__file__'))#注意:添加单引号 python中的os.path.dirname(__file__)的使用 (1)当"p

  • 使用VBS创建快捷方式的代码

    在网吧维护过程中经常要发送桌面快捷方式,有什么批处理的方式能便捷发送桌面快捷方式呢,就拿我这边网吧steam下发为例给大家一个参考,如果要使用直接复制下面代码改下具体参数就行了.代码如下: @echo off ::设置程序或文件的路径(必选) set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe ::设置启动参数(可选) set Arguments= ::设置快捷方式名称(必选) set LnkName=test ::设置程序的工作路径,一般为

随机推荐