-
I'm trying to save data that is in my preview form. I can get the file to save but cannot get the data to write to the file. I'm having so much trouble with this so if anyone can help me I would greatly appreciate it.
Here is what I have so far:
Private Sub mnuFileSaveAs_Click()
On Error Resume Next
CommonDialog1.Filter = "All Text Files (*.txt)|*.txt"
CommonDialog1.ShowSave
strOpenFile = CommonDialog1.FileName
Set ts = fso.CreateTextFile(strOpenFile, True)
strData = Text1.Text
ts.Write (strData)
ts.Close
End Sub
An error comes up saying that it does not like the Text1.Text. ?????
-
open "c:\pornlist.txt" as output as #1
print #1, text1.text
close #1
Word to your Mother,