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

时间: 2024-09-14 03:08:40

vbs 获取当前目录的实现代码_vbs的相关文章

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

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

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)_vbs

复制代码 代码如下: i=0set fso=CreateObject("Scripting.FileSystemObject")set fs=fso.getfolder(".").filesfor each f in fsi=i+1nextmsgbox "文件总数:"&i

vbs xmldom初次实战获取QQ签名的代码_vbs

'/*=========================================================================    ' * Intro       用XMLDOM分析QQ签名文档    ' * FileName    QQ_QianMing.vbs    ' * Author      yongfa365    ' * Version     v2.0    ' * Email       yongfa365[at]qq.com     ' * Mad

vbs 定时删除功能实现代码_vbs

参考代码一: 复制代码 代码如下: Function DeleteLog( )    Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath       DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\"    Set objFS

用vbs操作注册表实例代码_vbs

打开或关闭CMD:   Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" i="REG_DWORD" t="命令提示窗口开关&

vbs 注册表操作类代码_vbs

复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 ' Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CON

vbs加administrator用户的代码_vbs

set wsnetwork=CreateObject("WSCRIPT.NETWORK") os="WinNT://"&wsnetwork.ComputerName Set ob=GetObject(os) '得到adsi接口,绑定 Set oe=GetObject(os&"/Administrators,group") '属性,admin组 Set od=ob.Create("user","test

JavaScript学习笔记之获取当前目录的实现代码_javascript技巧

复制代码 代码如下: function GetCurrentDirectory() { var curHref = location.href; var curArray = locHref.split("/"); delete curArray[curArray.length - 1]; var curdir = curArray.join("/"); return curdir; }

用VBS修改IIS Metabase 的代码_vbs

////////////////////////// 作者:Jaron, 江都资讯网  邮件:jaron@jdinfo.net 网址:http://www.jiangdu.net 如果您要转载该文章,请注明出处. //////////////////////////  本文解释如何用 Microsoft 自带的adsutil.vbs 来修改 IIS Metabase 的设置方法,这里是通过调用 BAT批处理的方法来实现的,灵活运用一下,可以用于 InstallShield 和其他地方.  测试环