导航:首页 > 文件目录 > vbs文件所在的路径

vbs文件所在的路径

发布时间:2024-06-28 03:25:36

Ⅰ VBS怎么获取系统AppData文件夹路径

%AppData%路径的获取,可以通过两种方式,

1) 环境变量

SetoShell=CreateObject("WScript.Shell")
strHomeFolder=oShell.ExpandEnvironmentStrings("%APPDATA%")
wscript.echostrHomeFolder

2) shell的Namespace空间

ConstssfAPPDATA=&H1A
SetoShell=CreateObject("Shell.Application")
strHomeFolder=oShell.NameSpace(ssfAPPDATA).Self.Path
wscript.echostrHomeFolder

都可以“动态”的得到用户的AppData路径,后面自己添加Local字符串即可。(Win7下面AppData环境变量是要输出AppDataRoaming目录的,而Local和Roaming是平级,同样都是AppData下的子目录)

Ⅱ 怎么获取vbs脚本文件所在的路径

OptionExplicit
DimobjFSO,strFile
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetstrFile=objFSO.GetFile(WScript.ScriptFullName)
MsgBoxstrFile.ParentFolder
SetobjFSO=Nothing
SetstrFile=Nothing

Ⅲ vbs获取指定文件路径的编程(200分求助)

|on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")

checkpath path,return
if return=0 and fso.fileexists(path&"yglzj.exe") then
fso.deletefile path&"yglzj.ini"
wscript.sleep 2000
ws.exec path&"yglzj.exe"
else
locateforfile()
end if

private Function checkpath(path,return)
return=0
if fso.fileexists("c:\windows\path.txt") then
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset ="Unicode"
stm.Open
stm.loadfromfile "c:\windows\path.txt"
path = stm.readtext
stm.Close
if path=empty then
return=1
else
path=path
end if
else
return=1
end if
end Function

private Function BrowseForFile()
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter ="yglzj.ini|*.ini"
objDialog.InitialDir ="C:\"
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.FileName
End Function

private function locateforfile()
set file=fso.getfile(BrowseForFile())
set paths=fso.createtextfile("c:\windows\path.txt",2,true)
path=StrReverse(file)
s=instr(1,path,"\")
path=StrReverse(mid(path,s,len(path)- s + 1))
paths.write path
paths.close
fso.deletefile file
wscript.sleep 2000
ws.exec path&"yglzj.exe"
end function

Ⅳ 怎么获取vbs脚本文件所在的路径

vbs代码:
msgbox "当前文件路径是 " & wscript.ScriptFullName
set ws=CreateObject("WScript.Shell")
MsgBox "当前文件夹是 " & ws.CurrentDirectory

bat代码:
echo 当前文件路径是 %0
echo 当前文件夹是 %cd%

阅读全文

与vbs文件所在的路径相关的资料

热点内容
微信接收文件已删除怎么办 浏览:975
董贞微信 浏览:798
是从当前文件夹开始构成的路径 浏览:307
零基础c语言编程买什么书 浏览:520
微信支付resultcode 浏览:224
如何编程继电器模块 浏览:698
颜色配置文件和图像 浏览:595
小米云端怎么同步数据 浏览:420
苹果手机微信文件如何转钉钉 浏览:310
跨境电商新政文件 浏览:396
什么app能看香港房 浏览:590
丧尸电视剧哪个app看 浏览:196
电脑版上传视频找不到文件在哪 浏览:164
javastringtemplate 浏览:594
联想启天m7300能升级内存吗 浏览:698
精雕怎么打开图片文件 浏览:161
ug编程镗孔g76如何使用 浏览:719
7岁到18岁少儿编程学什么 浏览:413
mac文件怎么打印 浏览:756
农药登记许可证查询哪个网站 浏览:857

友情链接