Gem filen vbReadOnly og med Tid

Hej Alle

Jeg benytter følgende kode for at gemme en log over hvad der foregår i min database:

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("C:\Temp\Logs\" & Date & ".txt", False)
    a.WriteLine ("" & fosusername & "")
    a.WriteLine ("" & LogMessagetxt2 & LogMessagetxt & "")
    a.WriteLine "File Created on: " & Date & " " & Time
    a.Close

1. Mit første problem er at jeg gerne vil oprette filen vbReadOnly. Men jeg kan ikke hitte ud af at benytte

SetAttr "FilePath", vbReadOnly

da jeg jo ikke kender navnet på filen.

2. Mit andet problem er at jeg gerne vil have tid med på filen. Men hvis jeg benytter Now() angiver den 00-00-0000 00:00:00 og jeg kan ikke gemme filer i dette format. Hvad gør jeg så?