If DownloadFile(ftpRow) = True Then
            Dim fi As New FileInfo(IO.Path.Combine(Pfad, Name))
            If fi.Exists Then
                Try ' ggf. Zugriffssperre durch Antivirensoftware abfangen
                    fi.CreationTime = ftpRow._Date
                    ftpRow.geändert = False
                    ftpRow.Download = False
                    DlSize -= ftpRow.Size
                Catch ex As Exception
                    Debug.Print("bgw_UpDownload: " & ex.Message)
                End Try
 
            End If
            fi.Refresh()
            bgw_UpDownload.ReportProgress(0)
         End If

Danke für die Hilfe

Gruß Christian