devo scrivere un file di testo compilando i campi da più sub.
Nella prima Sub creo il file di testo così:
- Codice: Seleziona tutto
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.CreateTextFile("C:\Temp\" & "FileTesto" & " data creaz. " & Format(Now(), "dd-mm-yyyy") & " Ore " & Format(Time, "hh.mm.ss") & ".xml", True)
Nell'esecuzione delle varie Sub del progetto ho bisogno di aggiungere man mano righe al file, es
- Codice: Seleziona tutto
testfile.WriteLine "<Versione>11</Versione>"
Solo che nelle altre Sub mi restituisce l'errore: impossibile trovare metodo o membro di dati.
Ho provato, dopo aver letto vari post relativi, a inserire questa dicitura nella sub iniziale
- Codice: Seleziona tutto
Public testfile As FileSystemObject
Ma non ho risolto sapete aiutarmi?
Grazie