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

PhilPursglove · Accepted Answer · 2010-06-17 10:04:44Z

1

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

answered Jun 17, 2010 at 10:04

PhilPursglove

12.6k5 gold badges48 silver badges71 bronze badges

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

2 Comments

peter Over a year ago

i need an optimized solution by using CommonAppData

peter Over a year ago

this wl work fine,but i need an optimized solution by using CommonAppData

Community · Accepted Answer · 2017-05-23 12:19:39Z

1

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. :)

edited May 23, 2017 at 12:19

CommunityBot

11 silver badge

answered Jun 17, 2010 at 10:12

Helen

99.9k18 gold badges281 silver badges353 bronze badges

Collectives™ on Stack Overflow

File creation by using Vb script

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