set objFSO = createobject("scripting.filesystemobject")
Set objShell = CreateObject("WScript.Shell")

zeitTemp = Time
zeitStunden = Hour(zeitTemp)


SourcePath = "G:"
BackupPath = "D:\Mirror_D"
Junction = "C:\windows\system32\junction.exe "
RSync = "C:\Program Files\rsync\rsync.exe"


RunSnapShotStart = 8
RunSnapShotStop = 17
RunSnapShotInterval = 1

RunBackup = 5
KeepBackupDays = 3

AnzahlSnapshots = RunSnapshotStop - RunSnapShotStart + 1


select case true

    case (zeitStunden>=RunSnapShotStart and zeitStunden=<RunSnapShotStop)
		snapshot()
    case (zeitStunden = RunBackup)
		Backup()
    case else
		rem  msgbox "Mache nix!"
end select


function snapshot()
	SnapshotNumberDirectory = zeitStunden-RunSnapShotStart
	FolderExist(BackupPath & "\Snapshot." & SnapshotNumberDirectory)

	for i = SnapshotNumberDirectory to 1 step -1
		FolderExist(BackupPath & "\Snapshot." & i)
		objFSO.DeleteFolder(BackupPath & "\Snapshot." & i),true
		FolderExist(BackupPath & "\Snapshot." & i-1)
		objFSO.CopyFolder BackupPath & "\Snapshot." & i-1 , BackupPath & "\Snapshot." & i , OverWriteFiles
	next


	strRun = junction  & "-d " & BackupPath & "\Snapshot.0"
	objShell.Run (strRun)

	strRun = junction  & BackupPath & "\Snapshot.1" & " " & BackupPath & "\Snapshot.0"
	objShell.Run (strRun)

	SourceDriveLetter = left(SourcePath,1)
	SourcePathCygwin = replace(mid(SourcePath,3,Len(SourcePath)),"\","/")

	BackupDriveLetter = left(BackupPath,1)
	BackupPathCygwin = replace(mid(BackupPath,3,Len(BackupPath)),"\","/")

	strRun = "cmd /c """ & RSync & """ -a --delete --progress /cygdrive/" & SourceDriveLetter & SourcePathCygwin & "/* /cygdrive/" & BackupDriveLetter & BackupPathCygwin & "/Snapshot.0"
	objShell.Run (strRun)
end function

function backup()
	SnapshotNumberDirectory = 0
	Const OverWriteFiles = True
	FolderExist(BackupPath & "\Backup." & SnapshotNumberDirectory)
	Set objDir = objFSO.GetFolder(BackupPath & "\Backup." & SnapshotNumberDirectory)

	for i = KeepBackupDays to 1 step -1
		FolderExist(BackupPath & "\Backup." & i)
		objFSO.DeleteFolder(BackupPath & "\Backup." & i)
		FolderExist(BackupPath & "\Backup." & i-1)
		objFSO.CopyFolder BackupPath & "\Backup." & i-1 , BackupPath & "\Backup." & i , OverWriteFiles
	next

	SourceDriveLetter = left(SourcePath,1)
	SourcePathCygwin = replace(mid(SourcePath,3,Len(SourcePath)),"\","/")

	BackupDriveLetter = left(BackupPath,1)
	BackupPathCygwin = replace(mid(BackupPath,3,Len(BackupPath)),"\","/")

	strRun = "cmd /c """ & RSync & """ -a --delete --progress /cygdrive/" & SourceDriveLetter & SourcePathCygwin & "/* /cygdrive/" & BackupDriveLetter & BackupPathCygwin & "/Backup.0"
	objShell.Run (strRun)
end function

function FolderExist(folder)
    If (objFSO.FolderExists(folder)) Then
		rem       msgbox folder & " exists."
    Else
		objFSO.CreateFolder(folder)
    End If
		ReportFileStatus = msg
end function