ho trovato questo codice
FSO.CreateTextFile (DBP & "privaterooms\" & RoomNumer & "\voting.txt")
FSO.CreateTextFile (DBP & "privaterooms\" & RoomNumer & "\hasvoted.txt")
FSO.OpenTextFile(DBP & "privaterooms\" & RoomNumer & "\voting.txt", ForWriting).Write "0"
If FSO.OpenTextFile(DBP &...