Private Sub Command1_Click()
  Dim oFSO As New FileSystemObject
  Dim temp As TextStream
 
  Set temp = oFSO.CreateTextFile("d:\test1.txt", True)
  temp.WriteLine "Test"
  temp.Close
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de