Private Sub Speicherplatz()
        Dim drivez As String = System.IO.Path.GetPathRoot(zielordner)
        Dim FreeSpace As String = ""
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
 
            If drive.IsReady Then
 
                If drive.Name = drivez Then
 
                    driveziel = drive.TotalFreeSpace
 
     if driveziel < groessezielordner then 
 
        msgbox("Nicht genügend Speicherplatz!")
 
     end if
 
                End If
            End If
        Next
    End Sub