File creation by using Vb script

Question

I need a VB script which will create text file named "listitem" in C:\Documents and Settings\All Users\Application Data\secon\smartapp up to C:\Documents and Settings\All Users\Application Data\ we can make it as 'CommonAppDataFolder'

Any one knows about this

score 1 · Accepted Answer · answered Jun 17 '10 at 10:04

OK, let's see if I can remember how to do this...

Dim fso 'As Scripting.FileSystemObject
Dim stream 'As Scripting.TextStream

Set fso = CreateObject("Scripting.FileSystemObject")

'Check that the secon folder exists
If fso.FolderExists("C:\Documents and Settings\All Users\Application Data\secon") Then
Else
    fso.CreateFolder("C:\Documents and Settings\All Users\Application Data\secon")
End If

'Check that the smartapp folder exists
If fso.FolderExists("C:\Documents and Settings\All Users\Application Data\secon\smartapp") Then
Else
    fso.CreateFolder("C:\Documents and Settings\All Users\Application Data\secon\smartapp")
End If

'Create the file as ASCII text, overwrite it if it already exists
Set stream = fso.CreateTextFile("C:\Documents and Settings\All Users\Application Data\secon\smartapp\listitem.txt", true, false)

'Close it neatly
stream.Close

'Clean up
Set stream = Nothing
Set fso = Nothing

this wl work fine,but i need an optimized solution by using CommonAppData — peter, Jun 17 '10 at 10:57

score 1 · Answer 2 · edited May 23 '17 at 12:19

Here're some tips for you:

To obtain the CommonAppData path programmatically, use the Shell.Namespace(35) method. (35 is the folder id according to the ShellSpecialFolderConstants Enumeration.) See this question for an example.
To concatenate two paths, use the FileSystemObject.BuildPath method.
To create text files, you can use the FileSystemObject.CreateTextFile method.

Hope you can manage the rest yourself. :)

File creation by using Vb script

2 Answers2