Dim ZielOrdner As String = "C:\Ziel"
        Dim QuellOrdner As String = "C:\"
        Dim filenames() As String = New String() {"datei1.dat", "datei2.dat", _
          "datei3.dat"}
 
        ProgressBar1.Maximum = filenames.Length
 
        If Not IO.Directory.Exists(ZielOrdner) Then _
          IO.Directory.CreateDirectory(ZielOrdner)
 
        For x As Integer = 0 To filenames.Length - 1
            Dim QuellDatei As String = IO.Path.Combine(QuellOrdner, filenames( _
              x))
            Dim ZielDatei As String = IO.Path.Combine(ZielOrdner, filenames(x))
            IO.File.Copy(QuellDatei, ZielDatei)
            ProgressBar1.Value = x + 1
        Next

    Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" ( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal bFailIfExists As Int32) As Int32

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co