Board logo

标题: [问题求助] VBS调用临时文件夹如何写 [打印本页]

作者: nai    时间: 2014-11-9 00:35     标题: VBS调用临时文件夹如何写

本帖最后由 nai 于 2014-11-9 00:37 编辑

VBS调用临时文件夹,临时文件夹的路径该如何写?我要的是临时文件夹变量。VBS能否使用临时文件夹变量?

作者: yu2n    时间: 2014-11-9 14:02

本帖最后由 yu2n 于 2014-11-9 14:04 编辑

回复 1# nai
例1:TEMP环境变量(临时文件夹位置)
  1. Msgbox CreateObject("WScript.Shell").ExpandenVironmentStrings("%TEMP%")
复制代码
例2:获取用户名
  1. Msgbox CreateObject("WScript.Shell").ExpandenVironmentStrings("你的用户名是:%USERNAME%")
复制代码

作者: apang    时间: 2014-11-9 17:50

例3:
  1. MsgBox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
复制代码

作者: nai    时间: 2014-11-11 00:28

本帖最后由 nai 于 2014-11-11 00:29 编辑

回复 2# yu2n
可能是我没有讲清楚,比如:
  1. set fso=createobject("scripting.filesystemobject")
  2. fso.deletefile "C:\Users\administrator\AppData\Local\Temp\*.*"
复制代码
绝对路径”C:\Users\administrator\AppData\Local\Temp“我想改成环境变量如何改,我试过用
  1. set fso=createobject("scripting.filesystemobject")
  2. fso.deletefile "%TEMP%\*.*"
复制代码
行不通
作者: apang    时间: 2014-11-11 21:07

回复 4# nai


    亲,这样行得通不?
  1. CreateObject("WScript.Shell").Run "cmd /c del /a /q /f ""%temp%\*"""
复制代码

作者: nai    时间: 2014-11-12 08:58

回复 5# apang
这样调用批处理代码是可以,
作者: czjt1234    时间: 2014-11-12 12:25

还是调用批处理好

否则要加On Error Resume Next
防止有文件删除不掉而报错,反而啰嗦
作者: 9zhmke    时间: 2014-11-18 15:53

环境变量要用ExpandEnvironmentStrings("%temp%")扩展出来才能用,比如:

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
msgbox WshShell.ExpandEnvironmentStrings("%temp%")

其实这些都可以百度到....




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2