Vbscript 在%temp%中创建文本文件，并使用vbs在其中写入内容

基本上，我想创建一个新文件并将其写入PC上的一个目录中，该目录由

%TEMP%

变量指向。但是，下面修订的代码不起作用：

Dim oFile
Dim shell
Set oShell = CreateObject("WScript.Shell")
user = oShell.ExpandEnvironmentStrings("%Temp%")
Set oFile = CreateObject("Wscript.Shell")
Set oFile = oFile.CreateTextFile("%Temp%\d.txt")
oFile.WriteLine "here is my contant"
oFile.Close

错误消息：

运行时错误
行号：3
所需对象

旧代码 如果我使用文件名“C:\myfile.txt”，它可以正常工作

错误消息：

找不到路径

您可以使用

Environ（“temp”）

写入

C:\Users\[username]\AppData\Local\temp

您可以使用

Environ（“temp”）

写入

C:\Users\[username]\AppData\Local\temp>
在VBA中，您只需使用
Environment（“TEMP”）
来展开环境变量-如果在VBScript中不起作用，您可能需要绑定
WScript.Shell
对象并使用
ExpandEnvironmentStrings
属性，如下所示：

Set oShell=CreateObject（“WScript.Shell”）
FileName=oShell.ExpandEnvironmentStrings（“%TEMP%”）&“\myfile.txt”
设置oShell=无

以下是下面的评论
这是一个“完全固定”的代码：

“首先声明变量/对象
作为对象的Dim fso，作为对象的oFile
Dim oShell作为对象，文件名作为字符串
'此位将“%TEMP%”转换为实际文件路径
设置oShell=CreateObject（“WScript.Shell”）
FileName=oShell.ExpandEnvironmentStrings（“%Temp%\d.txt”）
Set oShell=Nothing“整理我们不再需要的对象
'此位创建文件
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set of ile=fso.CreateTextFile（文件名）
oFile.WriteLine“这是我的内容”
奥菲尔，关门
Set of ile=Nothing'整理我们不再需要的对象
Set fso=Nothing“整理我们不再需要的对象

在VBA中，您只需使用
Environment（“TEMP”）
来展开环境变量-如果在VBScript中不起作用，您可能需要绑定
WScript.Shell
对象并使用
ExpandEnvironmentStrings
属性，如下所示：

Set oShell=CreateObject（“WScript.Shell”）
FileName=oShell.ExpandEnvironmentStrings（“%TEMP%”）&“\myfile.txt”
设置oShell=无

以下是下面的评论
这是一个“完全固定”的代码：

“首先声明变量/对象
作为对象的Dim fso，作为对象的oFile
Dim oShell作为对象，文件名作为字符串
'此位将“%TEMP%”转换为实际文件路径
设置oShell=CreateObject（“WScript.Shell”）
FileName=oShell.ExpandEnvironmentStrings（“%Temp%\d.txt”）
Set oShell=Nothing“整理我们不再需要的对象
'此位创建文件
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set of ile=fso.CreateTextFile（文件名）
oFile.WriteLine“这是我的内容”
奥菲尔，关门
Set of ile=Nothing'整理我们不再需要的对象
Set fso=Nothing“整理我们不再需要的对象
oShell.ExpandEnvironmentStrings（“%TEMP%\myfile.txt”）
sir不工作：Dim oShell，tf Set oShell=CreateObject（“WScript.Shell”）FileName=oShell.ExpandEnvironmentStrings（“%TEMP%”）和“\myfile.txt”Set tf=oShell.CreateTextFile（FileName，True）@minikumari“不工作”不是有效的问题描述。你修改后的尝试“不起作用”到底是怎么回事？它还会给你一个错误吗？另一个？请编辑您的问题。@minikumari如果您在设置后使用
MsgBox
显示
文件名
，它是否显示有效路径（手动导航到那里？）此外，您是否确实有权查看/编辑该文件夹，或者该文件夹是否受到限制？
Dim of ile Dim shell set oShell=CreateObject（“WScript.shell”）user=oShell.ExpandEnvironmentStrings（“%Temp%”）文件集=CreateObject（“Wscript.Shell”）文件集=oFile.CreateTextFile（“%Temp%\d.txt”）文件的“这是我的contant”。关闭
第3行中的错误：需要对象。
oShell.ExpandEnvironmentStrings（“%Temp%\myfile.txt”）
sir不工作：Dim oShell，tf Set oShell=CreateObject（“WScript.Shell”）FileName=oShell.ExpandEnvironmentStrings（“%TEMP%”）&“\myfile.txt”Set tf=oShell.CreateTextFile（FileName，True）@minikumari“不工作”不是有效的问题描述。你修改后的尝试“不起作用”到底是怎么回事？它还会给你一个错误吗？另一个？请编辑您的问题。@minikumari如果您在设置后使用
MsgBox
显示
文件名
，它是否显示有效路径（手动导航到那里？）此外，您是否确实有权查看/编辑该文件夹，或者该文件夹是否受到限制？
Dim of ile Dim shell set oShell=CreateObject（“WScript.shell”）user=oShell.ExpandEnvironmentStrings（“%Temp%”）文件集=CreateObject（“Wscript.Shell”）文件集=oFile.CreateTextFile（“%Temp%\d.txt”）文件的“这是我的contant”文件。关闭
第3行错误：需要对象。可能重复文件的可能重复
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
FileName = "%TEMP%\myfile.txt"
Set tf = fso.CreateTextFile(FileName, True)