


<pre>Private Sub Command2_Click() ' Set filters. CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat" ' Specify default filter. CommonDialog1.FilterIndex = 2 ' Display the Open dialog box. CommonDialog1.ShowOpen ' get a free file number file1 = FreeFile 'open the file Open CommonDialog1.FileName For Append As file1 ' Add some text to the file Print #file1, "This is the new line" Close #file1 End Sub</pre>The file name contains the full path. You could also open 2 files, one for input, and other (in some different location) for output, and write in the second file what you read from the first one. Hope this helps.



