Crear un fihero.txt si no existe y añadir a continuación si existe

lvaro
25 de Marzo del 2004
Hola. He puesto el siguiente cógido:
Dim fs As Object
Dim a As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:HORASEXTRASOT.txt", True)
a.WriteLine ("Esto es una prueba")
a.Close

Esto me funciona bien, pero lo que quería es poder añadir a continuación del contenido del archivo.
Gracias.

sdemingo
25 de Marzo del 2004
Dim fs as object
set fs = createobject("scripting.filesystemobject")

if fs.fileexists("c:HORASEXTRASOT.txt") Then
Open "c:HORASEXTRASOT.txt" For Append As #1
Else
Open "c:HORASEXTRASOT.txt" For Output As #1
End If

salu2
sdemingo

lvaro
25 de Marzo del 2004
Muchas gracias sdemingo!. Ya lo tengo . Le he puesto el siguiente cógigo:

Dim fs As Object
Dim a As Object
Dim empleado As String

Set fs = CreateObject("scripting.filesystemobject")

If fs.fileexists("c:HORASEXTRASOT.txt") Then
MsgBox "EL FICHERO SI QUE EXISTE"
Open "c:HORASEXTRASOT.txt" For Append As #1
empleado = "Prueba"
Print #1, empleado
Close #1
Else
MsgBox "EL FICHERO NO EXISTE"
Open "c:HORASEXTRASOT.txt" For Output As #1
empleado = "Prueba"
Print #1, empleado
Close #1


End If