crezione file

[Atilla]

devo creare un file txt da salvare su dischetto che contenga i valori di una stringa creata da me...come faccio??

[michele79]

Inserisci il riferimento Microsoft scripting runtime

Dim fso
Dim inFile
dim Tua_striga as string

' creo il FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

'creo il file
fso.CreateTextFile (App.Path & "\tuo_file.txt")

' apro i file
Set inFile = fso.OpenTextFile((App.Path & "\tuo_file.txt"), ForAppending, TristateFalse)

' scrivo
inFile.WriteLine Tua_striga

'sposto il file
fso.MoveFile App.Path & "\tuo_file.txt", "a:\"

' chiudo i due file ed elimino gli oggetti
inFile.Close
Set inFile = Nothing

' elimino il FileSystemObject
Set fso = Nothing

però la prossima volta fa una rierca sul forum

[Atilla]

grazie tante