• Home
 · 
• Miscellaneous
 · 
• Save TXT file

Save TXT file

Save TXT file

Rate Save TXT file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo Err_Found 
Dim FileName As String 
Dim FileNumber As Integer 
FileName = InputBox("Enter the path for a text file to save", _ 
    "Open", "C:\test.txt", 0, 0) 
If FileName = "" Then Exit Sub 
FileNumber = FreeFile 

Open FileName For Output As FileNumber 
    Print #FileNumber, Text1.Text 
Close FileNumber 
Exit Sub 

Err_Found: 
MsgBox Err.Description & vbCrLf & Err.Number 
End Sub