Testing File System Object in Vbscript

'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