Creating a text file using VBScript

Question

I know how to create a text file using VBScript which is shown below:

Dim a As New FileSystemObject
Set Text = a.CreateTextFile("C:\Folder\test.txt")

Now I want some script so that my this test.txt file just opens in front of my monitor. Because I know that when we make an Excel file, we just use

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

When used the Excel sheet is created and just opens up in front of us. In a similar way I had tried for text file but it's not at all working.

What would be a solution?

Answer 1

You can use WScript.Shell's Run method to launch documents in their associated editor:

Dim a As New FileSystemObject
Set Text = a.CreateTextFile("C:\Folder\test.txt")

Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")

wsh.Run "C:\Folder\test.txt"

Answer 2

If you want to open your file using an another editor other than the one associated do:

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("notepad c:\path\file.txt")