|
Iniziamo subito con qualche esempio di codice:
Set Obj=CreateObject("Scripting.FileSystemObject") Set Stream=obj.OpenTextFile(MioFile, Modo, Create, Formato) Oppure Set Obj=CreateObject("Scripting.FileSystemObject") Set Stream=Obj.CreateTextFile(MioFile,Create) Dove: 'MioFile = e' il percorso (Fisico, quindi c:\Dir\MioFile.Ext) _ 'e il nome del file da utilizzare. 'Se non si conosce il percorso FISICO del file si puo' 'utilizzare una funzione che viene messa a disposizione 'proprio per questi casi, la funzione si chiama MAPPATH 'e viene utilizzata in questo modo: Server.MapPath(IndirizzoInternetDelFile) 'Ad Es. MioFile= Server.MapPath("../dir/file.txt") 'Modo = (Opzionale) Serve per impostare il modo con cui si ' desidera aprire il File: ' ForReading (1) = Apre in sola lettura ' ForWriting (2)=Apre in scrittura ' ForAppending (8)=Apre in scrittua e scrive alla fine del file 'Create = (Opzionale - Boolean) Serve per impostare se 'creare il file anche se non esiste Formato = (Opzionale) Server per impostare il formato del file: TristateTrue = Apre in Unicode TristateFalse = Apre in ASCII TristateUseDefault = Apre usando il sistema di default 'Bene ora che sappiamo aprire un file dobbiamo leggere il 'suo contentuo o scriverci dentro, vediamo come: 'Per leggere una RIGA si usa questo metodo: testo=Stream. 'ReadLine(), mentre per leggere l'intero file e associarlo 'ad una variabile basta usare quest'altro metodo 'testo=InStream.ReadAll. 'Mentre per leggere (riga per riga) l'intero file basta 'impostare il seguente ciclo: Do While not Stream.AtEndOfStream testo=Stream.ReadLine() loop 'Per scrivere nel file si usa: testo="Hello World" Stream.WriteLine(testo) 'Bisogna alla fine ricordarsi di chiudere l'oggetto e 'quindi liberare le risorse facendo: Stream.Close |