FileSystemObject - CreateTextFile method

Hi,

I on the Module 5, and I am unable to create a text file with the provided code, the test case is being passed, however the txt file is not being created. 

I have used the following code in my script.

1) First code

Set fso = CreateObject("Scripting.FileSystemObject")
file_path="C:\UFTVBFile.txt"
fso.CreateTextFile file_path

2) Second code

Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
   MyFile.WriteLine("This is a test.")
   MyFile.Close
End Sub

Please advise.

Ankush Thakur