UC知道VBS高手请进
来源：百度知道 编辑：UC知道 时间：2024/05/13 03:00:41
有没有那位大哥会VBS的.帮小弟一把.显示系统完整的临时目录
set fso=createobject("scripting.filesystemobject")
set dir2=fso.GetSpecialFolder(2)
Key_data = dir2&"\run.vbs"
msgbox(Key_data)
set fso=createobject("scripting.filesystemobject")
set dir2=fso.GetSpecialFolder(2)
Key_data = dir2&"\run.vbs"
msgbox(Key_data)
GetTempName 方法
返回随机生成的临时文件或文件夹的名称，用于执行要求临时文件或文件夹的操作。
object.GetTempName
可选项参数 object 应为 FileSystemObject 对象的名称。
说明
GetTempName 方法不创建文件，该方法仅提供临时文件名。CreateTextFile 使用该临时文件名创建文件。
下面例子举例说明如何使用 GetTempName 方法：
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")Function CreateTempFile
Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
tname = fso.GetTempName
Set tfile = tfolder.CreateTextFile(tname)
Set CreateTempFile = tfile
End FunctionSet tempfile = CreateTempFile
tempfile.WriteLine "世界你好"
tempfile.Close
GetTempName 方法2007.09.08