Posto il codice che ho trovato:
- Codice: Seleziona tutto
Sub ScriviTesto()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim targetFile As Object
Dim myFilePath As String
Dim myFileText As String
Dim testo As String
testo = "Scrivi"
myFilePath = "D:\prova.txt"
Set targetFile = fso.CreateTextFile(myFilePath, True)
targetFile.Write , testo
targetFile.Close
End Sub
L'errore me lo segnala in questa riga:
- Codice: Seleziona tutto
targetFile.Write , testo
non riesco a fargli digerire la stringa.
Un ringraziamento a chi può darmi un aiuto a risolvere,
Francesco