Ubaci ovo u glavni modul


Private Sub BrojRacuna()
NazivFajla = "C:\" & Format(Date, "dd-mm-yy") & " " & Format(Time, "hhmmss") & "_Racun.txt"
End Sub

Primer:
Call BrojRacuna

VB ne koristim bas mnogo i slabije se snalazim.Radim sa SQL i zato mi treba rjesenje za makro.
Ipak hvala na trudu

Nece ti prihvatiti vrijeme kao 22:15:12 Jer je : operator.
Mozda na necom compu.
Function vrijemeIme()
Dim Vrijeme
Vrijeme = Format(Time, "hh") & "_" & Format(Time, "mm") & "_" & Format(Time, "ss")
Open Db_Putanja & "\" & Vrijeme & "Racun.txt" For Output Shared As #1
Close #1
End Function

Function Db_Putanja() As String
'-------------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'__________________________________________________
Dim Db As Database
Dim Putanja As String

On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = Db.Name
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set Db = Nothing
End Function

Opet hvala na odgovoru ali za mene je VB spansko selo.Koristim ga skroz malo.Opet navodim da mi treba rjesenja da u u putanji Output file odmah upisem putanju gdje ce naziv sadrzati vremenske podatke.Svoj problem sam vec rijesio sa BAT fajlovima,Znaci OutputTo-om dobijem npr,C:\Racun.txt,
a zatim pozovem RENAME BAT fajl i on promeni naziv fajla.
Tako
POZDRAV