Create a text file in %temp% and write content in it using vbs

Question

Basically, I want to create a new file and write in it in a directory on the PC, pointed to by the %TEMP% variable. However, the revised code below does not work:

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

Error Message:

run time error
line no: 3
object required

Old Code

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
FileName = "%TEMP%\myfile.txt"
Set tf = fso.CreateTextFile(FileName, True)

If I use the file name "C:\myfile.txt" it works fine.

Error Message:

Path not found

Possible duplicate of Can I pick up environment variables in vbscript WSH script? — user692942
– user692942, Commented Oct 15, 2018 at 19:36

Chronocidal · Accepted Answer · 2018-10-16 07:44:43Z

2

In VBA, you can just use Environ("TEMP") to expand the Environment variable - if this does not work in VBScript, you may need to bind the WScript.Shell object and use the ExpandEnvironmentStrings property instead, like so:

Set oShell = CreateObject("WScript.Shell")
FileName = oShell.ExpandEnvironmentStrings("%TEMP%") & "\myfile.txt"
Set oShell = Nothing

Following from comments below

Here is a "fully fixed" code:

'Declare variables/objects first
Dim fso AS Object, oFile AS Object
Dim oShell AS Object, FileName AS String

'This bit turns "%TEMP%" into a real file path
Set oShell = CreateObject("WScript.Shell")
FileName = oShell.ExpandEnvironmentStrings("%Temp%\d.txt")
Set oShell = Nothing 'Tidy up the Objects we no longer need

'This bit creates the file
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.CreateTextFile(FileName)
oFile.WriteLine "here is my content"
oFile.Close
Set oFile = Nothing 'Tidy up the Objects we no longer need
Set fso = Nothing 'Tidy up the Objects we no longer need

edited Oct 16, 2018 at 7:44

answered Oct 15, 2018 at 15:53

Chronocidal

8,3551 gold badge15 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

9 Comments

Ansgar Wiechers Over a year ago

oShell.ExpandEnvironmentStrings("%TEMP%\myfile.txt")

mini kumari Over a year ago

sir not working :Dim oShell,tf Set oShell = CreateObject("WScript.Shell") FileName = oShell.ExpandEnvironmentStrings("%TEMP%")& "\myfile.txt" Set tf = oShell.CreateTextFile(FileName, True)

Ansgar Wiechers Over a year ago

@minikumari "Doesn't work" is not a valid problem description. How exactly does your modified attempt "not work"? Does it still give you an error? A different one? Please edit your question.

Chronocidal Over a year ago

@minikumari If you use a MsgBox to display FileName after you set it, does it display a valid path (navigate there manually?) Also, do you actually have permissions to view/edit the folder, or is it restricted?

mini kumari Over a year ago

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

error in line no: 3 object required.

|

oxwilder · Accepted Answer · 2018-10-15 15:50:04Z

-1

you can use Environ("temp") to write to C:\Users\[username]\AppData\Local\Temp

answered Oct 15, 2018 at 15:50

oxwilder

7775 silver badges15 bronze badges

Collectives™ on Stack Overflow

Create a text file in %temp% and write content in it using vbs

Old Code

2 Answers 2

Following from comments below

9 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

Old Code

2 Answers 2

Following from comments below

9 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related