creating a text file

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

Code:

---


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

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

vb Code:

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

yeah thats working, thanks.

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

how to implemet same with above functions.




Thanks...

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

Quote:

---

Originally Posted by westconn1

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

---

The lack of this reference is what cause your error.

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

Code:

---

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

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

Dear all,

I got the solution for above problem. here is solution

Code:

---

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