1
abra su editor de texto favorito
2
Pega el siguiente :
dim FSO , archivo de texto
const ForWriting = 2
const ForAppending = 8
establecer FSO = CreateObject ( " Scripting.FileSystemObject " )
establecer TEXTFILE = FSO.OpenTextFile ("c : \\ textfile.txt " , ForWriting )
textFile.WriteLine " esto sobrescribirá todo el contenido actual del archivo y reemplazarlo con esta frase . "
textFile.Close
establecer TEXTFILE = FSO . OpenTextFile ("c : \\ textfile.txt " , ForAppending )
textFile.WriteLine " Esto se añade al final del archivo "
textFile.Close
esto declara dos constantes de dos modos de entrada /salida de archivos diferentes: ForWriting y ForAppending . Si se abre un archivo con la bandera " ForWriting " , entonces el nuevo texto limpiará todo el contenido actual del archivo . Por otro lado, si se utiliza el indicador " ForAppending " , se añadirá el nuevo texto al final del archivo actual , conservando todo su contenido.
3
Guarde su trabajo . Puede ejecutar la secuencia de comandos , haga doble clic en él.