Private Sub kopieren()
        ' Datei kopieren
        Dim von As String = stores(cmbStore.SelectedIndex)
        Dim nach As String = Projekte(lstProjekte.SelectedIndex)
        von = von.Substring(0, von.LastIndexOf("\"))
        nach = nach.Substring(0, nach.LastIndexOf("\"))
        For Each g As String In System.IO.Directory.GetFiles(von)
            If g.EndsWith(".demo") Then
                Dim temp As String = nach & g.Substring(g.LastIndexOf("\"))
                Dim nResult As Integer = CopyFileEx(g, temp, AddressOf _
                  Fortschrittsanzeige, 0, bCancel, COPY_FILE_RESTARTABLE)
                If nResult = 0 Then
                    nResult = Marshal.GetLastWin32Error()
                    MsgBox("Sorry, didn't work:" + nResult.ToString())
                End If
            End If
        Next
    End Sub