Dim FSO As New Scripting.FileSystemObject
Dim Folder As Scripting.Folder

Set Folder = FSO.GetFolder("C:\Users\Fabian\Pictures\")
PicturesC = Folder.Size

Set Folder = FSO.GetFolder("G:\Pictures\")
PicturesG = Folder.Size

If PicturesC <= PicturesG Then
Label1.Caption = "OK"
Label1.ForeColor = &HFF00&
Else
Label1.Caption = "Backup"
Label1.ForeColor = &HFF&
End If

Set Folder = FSO.GetFolder("C:\Users\Fabian\Music\")
MusicC = Folder.Size

Set Folder = FSO.GetFolder("G:\Music\")
MusicG = Folder.Size

If MusicC <= Int(MusicG) Then
Label2.Caption = "OK"
Label2.ForeColor = &HFF00&
Else
Label2.Caption = "Backup"
Label2.ForeColor = &HFF&
End If

Set Folder = FSO.GetFolder("C:\Users\Fabian\Videos\")
VideosC = Folder.Size

Set Folder = FSO.GetFolder("G:\Videos\")
VideosG = Folder.Size

If VideosC <= VideosG Then
Label3.Caption = "OK"
Label3.ForeColor = &HFF00&
Else
Label3.Caption = "Backup"
Label3.ForeColor = &HFF&
End If

If Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 Then

MsgBox ("Bitte setzen sie mindestens einen Haken!")

Else


Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String

Picturesize = PicturesC
Musicsize = MusicC
Videosize = VideosC

Dim Meldung As String
Dim Gesamt As Double

Gesamt = 0
If Check1.Value = 1 Then Gesamt = Gesamt + Picturessize
If Check2.Value = 1 Then Gesamt = Gesamt + Musicsize
If Check3.Value = 1 Then Gesamt = Gesamt + Videosize


Gesamt = (((Gesamt / 1024) / 1024) / 1024)
BenZeit = Int((Gesamt * 1024 / 15) / 60)


Gesamt = Format(Gesamt, "##.#")
BenZeit = Format(BenZeit, "##.#")


Meldung = "Es werden insgesamt " + Str(Gesamt) + " GigaByte verschoben. Bei einer Geschwindigkeit von 15 MB/s wird der Vorgang vorraussichtlich " + Str(BenZeit) + " Minuten dauern. Sollte das für sie zu lange sein, können sie diesen Vorgang mit einem Klick auf 'Abbrechen' abbrechen."

If MsgBox(Meldung, vbOKCancel) = vbOK Then

MsgBox ("Dieses Fenster wird nun ausgeblendet und nach Abschluss des Backups wieder geöffnet. Bitte fahren sie ihren PC in dieser Zeit auf keinen Fall herunter!")

Form1.Hide

If Check1.Value = 1 Then

sFolderPath = "C:\Users\Fabian\Pictures\"

sDestPath = "G:\"

Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath

End If

If Check2.Value = 1 Then

sFolderPath = "C:\Users\Fabian\Music"

sDestPath = "G:\"

Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath

End If

If Check3.Value = 1 Then

sFolderPath = "C:\Users\Fabian\Videos\"

sDestPath = "G:\"

Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath

End If

If MsgBox("Das Backup wurde erfolgreich abgeschlossen. Nun sollte im Hauptfenster hinter den aktualisierten Elementen ein 'OK' erscheinen. Vielen Dank, dass sie diesen Backup-Manager benutzt haben.", vbExclamation) = vbOK Then
Backupsize
End If

Form1.Show

End If

End If