Testing File System Object in Vbscript

Submitted by minthant on Tuesday, March 26, 2013 - 01:57.

Language


'The code is as shown below
Dim WshShell
choice=InputBox("Filename","Type File Name")
If choice="" Then
Wscript.Quit
End If
choice2=InputBox("Foldername", "Type Folder Name to be created")
If choice2="" Then
Wscript.Quit
End If
foldername="C:\"& choice2
filename=foldername&"\" & choice & ".txt"
Set WshShl=WScript.CreateObject("Wscript.Shell")
WshShl.Run"cmd /c mkdir C:\" & choice2
Set Fso=WScript.CreateObject("Scripting.FileSystemObject")
RR=InputBox("Batch file writer" & vbCrLf & " Write Something to be saved in " &_
 vbCrLf & filename,"Batch Writer")
Do While UCase(RR)>"QUIT"
If RR="" Then
MsgBox "I will run the script"
WshShl.Run "C:\" & choice2 & "\" & choice &".txt"
Wscript.Quit
End If
Set filehandle=Fso.OpenTextFile(filename,8,"True")
Filehandle.WriteLine RR
Filehandle.Close()
RR=InputBox("Batch file writer" & vbCrLf & " Write Something to be saved","Batch Writer")
Loop

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Add new comment

23 views