How do I add the date when saving a file?

[beach]

I am pulling a page from the web and saving it on a local directory on my hard drive. When I am saving it, I would like the date to appear at the end of the file name. I want this so that:

1. I will know the date the file was created;
2. The files will not write over one another.

I want to be able to store them in the local directory. Below is my code. Is there a way I can do this?

Webpage = hs.GetURL(host, page, strip_tags, port)
If Debug = True Then
hs.writelog "Get Beach Forecast from Weather-com", "Returned Website Data with length of " & len(Webpage)
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\Program Files\Homeseer\html\Beach_Forecast\Beach_Forecast_from_Weath er-com.txt")
f1.WriteLine Webpage
f1.Close

[Michael McSharry]

fso.CreateTextFile("c:\Program Files\Homeseer\html\Beach_Forecast\Beach_Forecast_from_Weath er-com_at_" & cstr(now) & ".txt")

[beach]

Thanks, Michael. I'll give it a try.