Create folder based on todays date and copy from another folder - log date/time

[JC_123]

I would like the below VBS to write to a text file called backuplog_<date of the vbs ran>) to a given folder (as a log) the start date/time and the end date/time the process took and show what was copied? Is this possible?

In other words, I would like a textfile called backuplog_<date of the vbs ran> and inside that lines showing

C: Volume backup Backup <date of the vbs started> Starting at hh:mm:ss
Copying Volume_1 folders

c:\mydocs\Data\pic1.png
c:\mydocs\Data\pic2.jpg

etc of each directory and file copied across

then at the end of the file and to show the script has finished

C: Volume backup Backup <date of the vbs ended> Starting at hh:mm:ss

I just would like to know how long the process took to backup and a start and end date/time is OK for my needs.

Also if it's just possible to show hours and minutes and not seconds that is OK.

Here is the code:

-----------------------------------------------------------

Option Explicit
On Error Resume Next

' Change the following lines
Dim sSrcFolder : sSrcFolder = "C:\Data\" ' Change Me
Dim sDstFolder : sDstFolder = "E:\DataBackup\" ' Change Me

'=======================================
' Do not change anything after this line

Dim DTM : DTM = Now()

' Set date variables
Dim Y, M, D, sToday
Y = Year(DTM)
M = Right("0" & Month(DTM),2)
D = Right("0" & Day(DTM),2)
sToday = D & "_" & M & "_" & Y

' Set time variables
Dim H, N, S, sTime
H = Hour(DTM)
N = Right("0" & Minute(DTM),2)
S = Right("0" & Second(DTM),2)
sTime = H & "_" & N & "_" & S

' Create objects
Dim oProc
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oShell : Set oShell = WScript.CreateObject("WScript.Shell")

Sub Main()
sDstFolder = sDstFolder & sToday ' Updated the destination folder

' First check if folders exists and create if they dont exist
If oFSO.FolderExists(sDstFolder) Then
If not oFSO.FolderExists(sTime) Then
'oFSO.CreateFolder(sTime)
End If
Else

' Create the destination directory if it doesn't exist
If Not oFSO.FolderExists(sDstFolder) Then BuildFullPath sDstFolder

' Copy data
If oFSO.FolderExists(sSrcFolder) Then oFSO.CopyFolder sSrcFolder & "*", sDstFolder, True
If Err.Number <> 0 Then ErrorHandler

End If

' Clean up
If oFSO.FileExists(sFile) Then oFSO.DeleteFile sFile, True
Set oFSO = Nothing
Set oShell = Nothing
Set oProc = Nothing
End Sub

Sub BuildFullPath(ByVal FullPath)
If Not oFSO.FolderExists(FullPath) Then
BuildFullPath oFSO.GetParentFolderName(FullPath)
oFSO.CreateFolder FullPath
If Err.Number <> 0 Then ErrorHandler
End If
End Sub


Main()

 

[JC_123]

I have managed to resolve the issue by doing it another way. Many thanks to all who read the post.