Dateinamen auslesen und Dateien verschieben.

[private]

Hallo,

in folgenden Script möchte ich die Dateinamen auslesen und diese Dateien dann verschieben.

        Dim i As Integer
        Dim Pfad As String
        Dim dateiname As String

        Dim DateiListe As ArrayList
        DateiListe = New ArrayList

        For i = 0 To System.IO.Directory.GetFiles(_NLvertraegePfad).Length - 1

            DateiListe.Add(System.IO.Directory.GetFiles(_NLvertraegePfad).GetValue(i).ToString())

        Next

        For i = 0 To System.IO.Directory.GetFiles(_NLvertraegePfad).Length - 1

            Pfad = DateiListe.Item(i)
            dateiname = Pfad.Remove(0, Pfad.LastIndexOf("/") + 1)
            IO.File.Move(Pfad, _NLbearbeitetPFad & "/" & dateiname)
            i = i + 1

        Next

Das Problem ist aber das die Datei beim verschieben anscheinend noch im Zugriff ist. (Fehler: wird von einem anderen Prozess verwendet)
D.h. ich kann alle Namen auslesen sie aber anschließend nicht verschieben. Direktes verschieben ist Möglich.

Hab natürlich keine der Dateien offen

Kann mir da jemand helfen ?

Gruß
private

[private]

Habs gelöst.

Dim dir As New IO.DirectoryInfo(_NLvertraegePfad)
        Dim fil As IO.FileInfo

        For Each fil In dir.GetFiles()

            My.Computer.FileSystem.MoveFile(fil.FullName, _NLbearbeitetPFad & "/" & fil.Name)

        Next

so einfach ^^