saving a text box as text with todays date

[bparker]

Does anybody have any idea on how to automatically save a text box as text with the file name as todays date.

thanks

[Joacim Andersson]

Well automatically depends on when you want to do this. But here's the code, to call it simply pass the TextBox you want to be saved as an argument. This will save the text in the same folder as the application and the name of the file will be in this format yyyymmdd.txt.

Public Function SaveText(txtBox As TextBox) As Boolean
    Dim hFile As Integer
    Dim sFileName As String
 
    On Error Resume Next
    hFile = FreeFile
    sFileName = App.Path & "\" & Format(Now, "yyyymmdd") & ".txt"
    Open sFileName For Output As #hFile
    Print #hFile, txtBox.Text
    Close #hFile
    SaveText = (Err.Number = 0)
End Function

[bparker]

I want to save it by clicking a button

[Sir Loin]

Private Sub Command1_Click
Call SaveText
end sub

sir loin

[Joacim Andersson]

Well it would then be:

Private Sub Command1_Click()
    Call SaveText(Text1)
End Sub

If the text box is named Text1 that is.

[bparker]

its not working

this is what I have

Public Function SaveText(txtBox As TextBox) As Boolean
    Dim hFile As Integer
    Dim sFileName As String
 
    On Error Resume Next
    hFile = FreeFile
    sFileName = App.Path & "C:\My Documents\" & Format(Now, "yyyymmdd") & ".txt"
    Open sFileName For Output As #hFile
    Print #hFile, Text1.Text
    Close #hFile
End Function
 
Private Sub Command1_Click()
    Call SaveText(Text1)
End Sub
 
Private Sub Text1_Change()
 
End Sub

[bparker]

please help

[Joacim Andersson]

The problem is the line where you set the path:

sFileName = App.Path & "C:\My Documents\" & Format(Now, "yyyymmdd") & ".txt"

App.Path returns the path to where you're application is installed or where your project file is stored if you're running from inside the VB IDE. So let's say you have your program in "C:\MyVBProject" that means that you're trying to create a file in C:\MyVBProjectC:\My Documents\20050511.txt and that will of course not work. If you want to use c:\My Documents\ then remove App.Path.

[bparker]

Thanks a lot for the help

I works perfect now

[Bruce Fox]

Just want to point out that the code has been mosdified from its original intent. That is, to pass a TextBox (any) to the function and have that data saved out.

Currently, the line in error is:

Print #hFile, Text1.Text

and should be:

Print #hFile, [b]txtBox[/b].Text

In the current function, the "Public Function SaveText(txtBox As TextBox) As Boolean"
is being passed the Object, but not being used in the function the way it was intended.



Bruce.