Why wont this work?

[OuTLawZGoSu]

I need to save a text file with this format in the name:
"  [<current time>] Saved Chat.txt   "

When I hit Save, the file doesent save.
What am I doing wrong?

Code Select Expand


Private Sub Save_Click()
Form1.rtb.SaveFile (App.Path & "[ " & Format(Time, "hh:mm:ss") & " ] " & "SavedChat.txt")
End Sub

Private Sub Load_Click()
Form8.cd1.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"
Form8.cd1.ShowOpen
Form8.rtbload.LoadFile Form8.cd1.FileTitle
End Sub


[K]

One problem I see right of the bat is that you can't have colons in a file name. (or backslashes either, in case you're saving the date as well).  Try replacing them with dashes, commas, or periods.

[OuTLawZGoSu]

Form1.rtb.SaveFile App.Path & ("\[ " & Format(Time, "hh-mm-ss") & " ] " & "SavedChat.txt")

thx

[CrAzY]

Eh, your doing it all wrong.  You need to open a txt file there should be a code for that.  I forget it off the top of my head.

[K]

Eh, your doing it all wrong.  You need to open a txt file there should be a code for that.  I forget it off the top of my head.

Actually, the Richtextbox control has a save method which will save its contents to a file.  Why do things the long way when you can do it like he's doing it?

[Newby]

Code Select Expand

Dim YOURFILENAME as String
YOURFILENAME = "ChannelLog.txt"

Open App.Path & YOURFILENAME for Append as #1
Print #1, TEXTTOPRINT
Close #1

There you go.

[Stealth]

Better to make YOURFILENAME a Const unless you'll be modifying it at runtime. Also, you named it like a constant -- all-uppercase name.

[Newby]

Well, I just put that there so he could copy/paste that and change the channel log name.

Unless you want me to o_O

Code Select Expand


Dim YOURFILENAME as String
becomes

Code Select Expand


Private Const YOURFILENAME = "ChannelLog.txt"


[Ersan]

You need to include a backslash before your filename, after App.Path

Code Select Expand

Dim YOURFILENAME as String
YOURFILENAME = "\ChannelLog.txt"
Open App.Path & YOURFILENAME for Append as #1
Print #1, TEXTTOPRINT
Close #1