Ja bih dodao neke pomocne naredbe, cito d avidis sta se desava:
Code:
Function Putanja() As String
Putanja = Environ("TMP")
'Putanja = Mid(Environ(33), 6) ' Ako pozivamo brojem ima i prefix naziva
End Function
Function Otvorifile()
Dim PutanjaS As String
PutanjaS = Putanja & "\x.txt"
'ovo ce da pokaze kako izgleda PutanjaS. Mozda ima neka crta vise, mozda nesto fali
debug.print PutanjaS
'Kad pukne kod, bar ces videti sta je to sto jeizazvalo 'Bad file name or number'
Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
End Function