creating a text file

[ashok449]

Hi all,
I am trying to create a text file in VB, but getting an error ...
User -defned type not defined. suggest me ...

 
Private Sub Command1_Click()

Dim FS As New FileSystemObject
   Dim Stream As TextStream

  Set Stream = FS.CreateTextFile(App.Path & "\ashoks.txt", True)
  
     Stream.Close
 
End Sub

Thanks....

[Neato]

This is adding the time and date to it, so that it's a completely unique file. Hope it helps

Private Sub Command2_Click()
Dim frfile As Long
Dim filetimedate As String
 
frfile = FreeFile
filetimedate = Format(Now(), "(mm dd yyyy) (hh-mm-ss)")
 
Open App.Path & "\log" & filetimedate & ".txt" For Output As #frfile
Print #frfile, Text1.Text
Close #frfile
 
Text1.Text = ""
End Sub

[ashok449]

yeah thats working, thanks.

but what is the difference b/w above and this process

how to implemet same with above functions.




Thanks...

[westconn1]

to use FSO you need to add a reference to microsoft scripting runtime

[Hack]

to use FSO you need to add a reference to microsoft scripting runtime

The lack of this reference is what cause your error.

[ashok449]

From above replies I realise that I need to add FSO reference to my code, but i am not aware of the same. please update below code with FSO reference ....

Private Sub Command1_Click()

Dim FS As New FileSystemObject
   Dim Stream As TextStream

  Set Stream = FS.CreateTextFile(App.Path & "\ashoks.txt", True)
  
     Stream.Close
 
End Sub

Compile erroe: User -defned type not defined


Thanks....

[VBFnewcomer]

To add Microsoft Scripting Runtime, click on Projects->References and set the ref to it

[ashok449]

Dear all,

I got the solution for above problem. here is solution

Private Sub Command1_Click()
Call myfile

End Sub

Public Sub myfile()
Set myFSO = CreateObject("Scripting.FileSystemObject")
'Dim ts As TextStream

Set ts = myFSO.CreateTextFile(App.Path & "\ashok.txt", True)
'ts.Close

'Set ts = myFSO.OpenTextFile(App.Path & "\ashok.txt", Forwriting, True)
ts.WriteLine "hi ashok"
ts.WriteLine "bye ashok"
ts.Close
End Sub

Thanks to all....