批处理之家 - Powered by Discuz! Board

标题: [问题求助] 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环境变量（临时文件夹位置）

Msgbox CreateObject("WScript.Shell").ExpandenVironmentStrings("%TEMP%")
复制代码

例2：获取用户名

Msgbox CreateObject("WScript.Shell").ExpandenVironmentStrings("你的用户名是：%USERNAME%")
复制代码

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

例3：

MsgBox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
复制代码

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

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

回复 2# yu2n
可能是我没有讲清楚，比如：

set fso=createobject("scripting.filesystemobject")
fso.deletefile "C:\Users\administrator\AppData\Local\Temp\*.*"
复制代码

绝对路径”C:\Users\administrator\AppData\Local\Temp“我想改成环境变量如何改，我试过用

set fso=createobject("scripting.filesystemobject")
fso.deletefile "%TEMP%\*.*"
复制代码

行不通

作者: apang 时间: 2014-11-11 21:07

回复 4# nai

亲，这样行得通不？

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://bbs.bathome.net/)