VB 6 Date Time Formatting

' Added DateTime to Path for multiple batch runs within same day.
' John Sharpe 10/30/2006
Dim strFilePath As String
Dim strDate As String
Dim strTime As String
' Return date in YYYYMMDD format.
strDate = Format(Now, "YYYYMMDD")
' Return time in HHMMSS format.
strTime = Format(Now, "HHMMSS")
DownloadFilePath = UCase(ArrayPath + strDate + strTime + ".TXT")