Listbox Items kopieren

Hallo zusammen,

ich habe eine kleines vb.net Programm. Dort werden in einer Listbox Dateien mit vollständigem Pfad
von dem System angezeigt. Jetzt würde ich gerne die angezeigten Dateien bzw. Items alle in einen Ordner
(bspw. D:\Test) kopieren. Wichtig ist, das das ursprüngliche Erstellungsdatum erhalten bleiben (also kein neues
Datum aufgrund des Kopiervorgangs).

Jemand eine Idee wie ich das am besten lösen kann?

LG und Danke
Claudia

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 631611

Url: https://administrator.de/contentid/631611

Ausgedruckt am: 23.11.2024 um 01:11 Uhr

2 Kommentare

Neuester Kommentar

Das Erstell-Datum wird zwar im Normalfall beim Copy-Vorgang nicht angefasst, aber hier trotzdem mal mit Korrektur für den Fall der Fälle...

Private Sub WhatEverYouWant()
    Dim strPathTarget As String = "D:\test"  
    For Each itm As String In ListBox1.Items
        If System.IO.File.Exists(itm) Then
            Dim dtSource As DateTime = System.IO.File.GetCreationTime(itm)
            Dim dst As String = System.IO.Path.Combine(strPathTarget, System.IO.Path.GetFileName(itm))
            Try
                System.IO.File.Copy(itm, dst)
                System.IO.File.SetCreationTime(dst, dtSource)
            Catch ex As Exception
                MsgBox("Exception: " & ex.Message, MsgBoxStyle.Exclamation)  
            End Try
        End If
    Next
End Sub