Vbs

[haldebul]

Alguien sabe por que no me funciona

option Explicit

const logfile=".\texto.txt"


function creaArchivo
Dim FSO, flog ' filesystemobject para manejo de archivos, archivo de log del proceso

Set FSO = CreateObject("Scripting.FileSystemObject")
Set flog = FSO.OpenTextFile(logfile, ForAppend, True)
flog.WriteLine ("hola")
flog.Close
set flog = Nothing
End Function


Sun Main( )
On Error Resume Next
Call creaArchivo
End Sub


Gracias