Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Enclose date in # signs to ensure it is treated as a date.
strDate = #04/17/07#
'Compare date to vairable and copy file as needed
If strDate = Date Then
objFSO.CopyFile(sourcepath, destinationpath, True)
End If