How would I save Plain text from a textbox as a File where I could give the file a name and ....

[jrdnoland]

..location to save it. Also want to do the same things with a Rich Text text box. and Finally be able to load into the respective text boxes a saved file.

Here's what I have so far:

Private Sub cmdSavePlain_Click()
Dim dlgOpen As FileDialog
Dim myTxt As String
myTxt = txtSource 'whatever text box your text is in
Open "K:\R&D Dept\Development Lab\R&D Test Request System (For testing and training)\Temporary Attachments\Plain Text x.txt" For Append As #1 ' change the path to reflect your path
Print #1, myTxt
Close #1
Set dlgOpen = Application.FileDialog(msoFileDialogSaveAs)
    With dlgOpen
    .InitialFileName = "K:\R&D Dept\Development Lab\R&D Test Request System (For testing and training)\Temporary Attachments\Plain Text x.txt"
    .Show
End With
End Sub

Private Sub cmdSaveRich_Click()
Dim dlgOpen As FileDialog
Dim myTxt As String
myTxt = txtHTML 'whatever text box your text is in
Open "K:\R&D Dept\Development Lab\R&D Test Request System (For testing and training)\Temporary Attachments\Rich Text x.txt" For Append As #1 ' change the path to reflect your path
Print #1, myTxt
Close #1
Set dlgOpen = Application.FileDialog(msoFileDialogSaveAs)
    With dlgOpen
    .InitialFileName = "K:\R&D Dept\Development Lab\R&D Test Request System (For testing and training)\Temporary Attachments\Plain Text x.txt"
    .Show
End With
End Sub

[moke123]

Maybe take a look at FileSystemObject textstream object

https://docs.microsoft.com/en-us/off...tstream-object

[jrdnoland]

Maybe take a look at FileSystemObject textstream object

https://docs.microsoft.com/en-us/off...tstream-object

I was actually hoping for some code to get me started. I'll look over this info and see what I can do with it.

[moke123]

I was actually hoping for some code to get me started. I'll look over this info and see what I can do with it.

Here's a quick example

fyi - only really works for plain text but will save the markup in a txt file. If you comment out the afterupdate code in the filename textbox, you can save it as html which will format the rich text.