Announcement

Collapse
No announcement yet.

How do I add the date when saving a file?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    How do I add the date when saving a file?

    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

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

    Comment


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

      Comment

      Working...
      X