Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Adding date to file name
- Thread starter mts176
- Start date
JohnYingling
Programmer
Dim dteW As Date
dteW = Now
' if day start at 6:00 A.M.
dteW = DateAdd("h",-6,dteW)' Subtract 6 hours
strFilenameDate = strFileName & "-" & Format(dteW,"yyyy-mm-dd-hh-nn-ss"
Compare Code (Text)
Generate Sort in VB or VBScript
dteW = Now
' if day start at 6:00 A.M.
dteW = DateAdd("h",-6,dteW)' Subtract 6 hours
strFilenameDate = strFileName & "-" & Format(dteW,"yyyy-mm-dd-hh-nn-ss"
Compare Code (Text)Generate Sort in VB or VBScript
Try this:
Set a reference to the scripting runtime
Option Explicit
Dim fs As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim strFile As String
Set fs = New Scripting.FileSystemObject
strFile = "c:\MyFilename " & Format(Now, "mm-dd-yyyy" & ".txt"
Set ts = fs.CreateTextFile(strFile, True)
'Do whatever
ts.Close
Since the codeuses the NOW function the date should be correct at 12:01.
Hope this helps
Set a reference to the scripting runtime
Option Explicit
Dim fs As Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim strFile As String
Set fs = New Scripting.FileSystemObject
strFile = "c:\MyFilename " & Format(Now, "mm-dd-yyyy"
& ".txt"Set ts = fs.CreateTextFile(strFile, True)
'Do whatever
ts.Close
Since the codeuses the NOW function the date should be correct at 12:01.
Hope this helps
- Status
