Metodo OpenAsTextStream
Apre un file specificato e restituisce un oggetto TextStream che è possibile utilizzare per operazioni di lettura, scrittura o aggiunta nei file.
oggetto.OpenAsTextStream([modoIO, [formato]])
Argomenti
oggetto
Obbligatorio. Nome di un oggetto File.
modoIO
Facoltativo. Indica la modalità di input/output e può corrispondere a una delle seguenti tre costanti: ForReading, ForWriting o ForAppending.
formato
Facoltativo. Uno dei tre valori Tristate utilizzati per indicare il formato del file aperto. Se viene omesso, il file verrà aperto in formato ASCII.
Impostazioni
Le possibili impostazioni dell'argomento modoIO sono:
Costante Valore Descrizione
ForReading 1 Apre un file in sola lettura. Non è possibile scrivere nel file.
ForWriting 2 Apre un file in scrittura. Se esiste un file con lo stesso nome, il contenuto precedente verrà sovrascritto.
ForAppending 8 Apre un file e scrive alla fine del file.
Le possibili impostazioni dell'argomento formato sono:
Costante Valore Descrizione
TristateUseDefault -2 Apre il file utilizzando l'impostazione predefinita di sistema.
TristateTrue -1 Apre il file in formato Unicode.
TristateFalse 0 Apre il file in formato ASCII.
Osservazioni
Il metodo OpenAsTextStream presenta la stessa funzionalità del metodo OpenTextFile dell'oggetto FileSystemObject. Il metodo OpenAsTextStream può inoltre essere utilizzato per scrivere in un file.
Nel codice seguente viene illustrato l'utilizzo del metodo OpenAsTextStream:
Function TextStreamTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "prova1.txt" 'Crea un file
Set f = fso.GetFile("prova1.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write "Salve gente"
ts.Close
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
TextStreamTest = ts.ReadLine
ts.Close
End Function