Create new file via VBScript

Question

I have create new file with custom content. But it not run. (Save file name "CustomerList.hta")

Please help me resolve it.

<script language="VBScript">
Dim fso, outFile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
Set tfile = tfolder.CreateTextFile("Customers.txt")
Set outFile = tfile

outFile.WriteLine "This first line"
outFile.WriteLine "The full path file is: " & tfile
outFile.WriteLine "This is last line"
outFile.Close
</script>

Remove the <script> tags.

Ansgar Wiechers
– Ansgar Wiechers

2017-09-21 17:26:24 +00:00
Commented Sep 21, 2017 at 17:26 — Ansgar Wiechers
– Ansgar Wiechers, Commented Sep 21, 2017 at 17:26

Ekkehard.Horner · Accepted Answer · 2017-09-21 17:37:43Z

0

Refactor to:

'<script language="VBScript">
Dim fso, outFile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
'Set tfile = tfolder.CreateTextFile("Customers.txt")
sFSpec = fso.BuildPath(tfolder, "Customers.txt")
WScript.Echo sFSpec
'Set tfile = fso.CreateTextFile("Customers.txt")
Set tfile = fso.CreateTextFile(sFSpec)
Set outFile = tfile

outFile.WriteLine "This first line"
'outFile.WriteLine "The full path file is: " & tfile
outFile.WriteLine "The full path file is: " & sFSpec
outFile.WriteLine "This is last line"
outFile.Close
'</script>

output:

cscript 46349646.vbs
C:\Users\eh\AppData\Local\Temp\Customers.txt

type C:\Users\eh\AppData\Local\Temp\Customers.txt
This first line
The full path file is: C:\Users\eh\AppData\Local\Temp\Customers.txt
This is last line

Use the docs (not wishfull thinking) to determine who can do what.

answered Sep 21, 2017 at 17:37

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

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

2 Comments

Ha Van Tien Over a year ago

Thanks for your script but it not work. I have saved with name .hta file. Its say "Object Require: WScript"

GWR Over a year ago

save it as a .vbs, and run it from the command line using: "cscript file.vbs" (without the quotes)

JoSerra · Accepted Answer · 2017-09-22 05:03:32Z

0

A .HTA file is an HTML Application. Your can create that file with notepad (it`s a text format). Check this page for a basic hta structure A basic sample with scripting can be found here

If you need to create dinamically your .hta file you must generate a text file with hta content (basically it is an HTML page).

answered Sep 22, 2017 at 5:03

JoSerra

3712 silver badges10 bronze badges

Collectives™ on Stack Overflow

Create new file via VBScript

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related