Public Structure CopyInfo
        Public source As String
        Public attribs As FileAttributes
        Public destination As String
    End Structure

    Private Sub CopyFiles()
        For i As Integer = 0 To files.Count - 1
            Dim fi As New FileInfo(files(i).source)
            fi.Attributes = FileAttributes.Normal
            fi.CopyTo(files(i).destination, True)
 
            fi.Attributes = files(i).attribs
 
            Me.Invoke(CType(AddressOf SetProgress, SetPB), CInt(((i + 1) / _
              files.Count) * 100))
        Next
    End Sub

                Dim ci As CopyInfo
                ci.source = f.FullName
                ci.destination = f.FullName.Replace(Quelle, Ziel)
                ci.attribs = f.Attributes
                files.Add(ci)

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 05.06.08 um 16:56:55 editiert.