无忧启动论坛

标题: 请懂得 vbs、vbe 写法的朋友指点下相对路径怎么写才对？ [打印本页]
作者: netmjwork    时间: 2016-6-5 21:28
标题: 请懂得 vbs、vbe 写法的朋友指点下相对路径怎么写才对？
本帖最后由 netmjwork 于 2016-6-5 22:53 编辑

目的：希望通过.vbe 代码通过判断相对目录"%WinDir%\121"是否存在来运行相应的文件。
但代码始终无法实现效果，请教大家如何解决这个问题？多谢！

.vbe好像无法识别相对目录"%WinDir%\121"的路径方式，只能输入"c:\windows\121"才可以正确运行。

如果F1为"%WinDir%\121"就无法识别（无论121目录是否存在，结果都是no.txt）
但F1为"c:\windows\121"就运行正确（121目录存在结果是yes，不存在是no）


代码如下：

   F1   = "%WinDir%\121"
FileYes = ".\yes.txt"
FileNo = ".\no.txt"

set Sh = CreateObject("Wscript.Shell")
Set Ws = CreateObject("Scripting.FileSystemObject")

If ws.FolderExists(F1) Then
  Sh.Run FileYes,1
Else
  Sh.Run FileNo,1
End If
作者: dos时代菜鸟    时间: 2016-6-5 21:43
本帖最后由 dos时代菜鸟 于 2016-6-5 22:00 编辑

看 如下  vbs 脚本：
  1. set os=CreateObject("Wscript.shell")
  2. set fs=CreateObject("Scripting.FileSystemObject")

  4. '---以下7条用来显示 系统级别的临时缓存文件夹的位置
  5. sys_temp=os.Environment("system")("temp")  '---将系统级别的临时缓存文件夹名称赋值给 sys_temp 变量，内容可能含有 %%
  6. abc=os.run("cmd.exe /c echo "&sys_temp&" >temp.txt",0,true) '---由于含有 %% 只能被 cmd 识别，所以通过cmd 把其转换为不带 %%的内容传递给文件
  7. set file1=fs.OpenTextfile("temp.txt",1) '---只读方式打开文件 temp.txt
  8. abc=file1.readline '---读取文件一行内容，并将其赋值给变量 abc
  9. file1.close '---关闭文件
  10. msgbox "系统system级别的临时缓存文件夹为："&abc '显示变量内容
  11. abc=fs.deletefile("temp.txt",true) '删除文件 temp.txt

  13. '以下4条命令用于获取和显示 FileSystemObject 所能获取的3个 所谓特殊文件夹
  14. path0=fs.getspecialfolder(0)
  15. path1=fs.getSpecialFolder(1)
  16. path2=fs.getSpecialFolder(2)
  17. msgbox "Windows 文件夹："&path0&chr(13)+ _
  18.         "系统System 文件夹："&path1&chr(13)+ _
  19.         "系统用户临时缓存文件夹："&path2
复制代码
作者: slore    时间: 2016-6-5 22:07
Set objShell=CreateObject("WScript.Shell")
strF1=objShell.ExpandEnvironmentStrings("%WinDir%\121")
WSH.echo strF1
作者: netmjwork    时间: 2016-6-5 22:36
本帖最后由 netmjwork 于 2016-6-5 22:53 编辑
dos时代菜鸟 发表于 2016-6-5 21:43
看 如下  vbs 脚本：


多谢提供思路，已经解决……
作者: netmjwork    时间: 2016-6-5 22:41
slore 发表于 2016-6-5 22:07
Set objShell=CreateObject("WScript.Shell")
strF1=objShell.ExpandEnvironmentStrings("%WinDir%\121")
...

非常感谢，您的代码非常精简，很管用！



欢迎光临 无忧启动论坛 (http://wuyou.net/) Powered by Discuz! X3.3