Visual Basic - crear fichero automaticamente

Hola a tod@s,
quisiera saber si es posible en VB generar automaticamente un fichero(del tipo .txt por ejemplo) en el que se guargen los resultados de las acciones que ha realizado un determinado programa. Dicho fichero tendría siempre un nombre fijo y se crearía automaticamente en C: por ejemplo. ¿Sabéis cómo hacerlo? Un saludo y espero vuestra ayuda.

Claro que si se puede aqui te envio un ejemplo

Open Data_DBConf.Recordset(\"[PCS_DirectCompresion]\") + \"\\COPIARESTAURACION.BAT\" For Output As #1

Print #1, \"@ECHO OFF\"
Print #1, \"@ECHO \" + Data_DBConf.Recordset(\"[PCS_Comentario]\")
Print #1, \"@ECHO \" + Format$(Date$, \"dddddd\")
Print #1, \"@ECHO -------------------------------------------------------\"
Print #1, \"@md \" + Data_DBConf.Recordset(\"[PCS_DirectCompresion]\")
Print #1, \"@xcopy \" + Trim(Me.Data_DBConf.Recordset(\"[PCS_DirectDestino]\")) + \"\\*.* \" + Data_DBConf.Recordset(\"[PCS_DirectCompresion]\")

Print #1, \"@cd \" + Data_DBConf.Recordset(\"[PCS_DirectCompresion]\")
Print #1, \"ren recupera.txt recupera.bat \"
Print #1, \"recupera.bat\"

Close #1
esto te crea un archivo en la ruta que tienes en la base de datos con un contenido que tienes tambien en una base de datos y tal. Quitas o sustituyes eso por lo que quieres meter y ya lo tienes.

Esteban: Lo mejor es escribir con el Scripting. Para utilizarlo tenés que agregar en las referencias (menú proyecto\referencias) al Microsoft
Scripting Runtime, Buscalo en la lista. Si no está utilizá el botón examinar y en System o System32 buscá scrrun.dll (viene con Internet explorer 5 o superior, es opcional en IE 4) se puede redistribuir sin problemas. El ejemplo es el que sigue:

'#################################################
Option Explicit
DefLng A-Z

Private Sub Command1_Click()
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream
Set fso = New FileSystemObject
'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile("C:\x.txt",
ForAppending, True)
TxtStm.WriteLine "Escribo lo que quiero"
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing

End Sub

'#################################################
Espero que te sea útil

Saludos Ruri