hatschi1
Goto Top

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

Content-Key: 631611

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

Ausgedruckt am: 29.03.2024 um 09:03 Uhr

Mitglied: 146707
146707 15.12.2020 aktualisiert um 11:10:58 Uhr
Goto Top
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
Mitglied: Hatschi1
Hatschi1 19.12.2020 um 10:34:42 Uhr
Goto Top
Wie immer - einfach Klasse primal! face-smile

Danke und Grüße