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")

Xcopy OverWrite File

echo. y|xcopy \\tsclient\y\*.exe C:\Testing\

Redirect Command Line Responses

:: Synch Dot Net Local Files to Server
echo. f |xcopy /s/c/y C:\DotNet\*.* S:\DotNet\