Lieb VB Gemeinde

Habe folgendes Problem. Ich habe hier ca. 500.000 Dateien in einer komplexen Ordnerstruktur.

Diese Dateien sollen in einen Ordner kopiert werden. Doppelte Dateien sollen dabei einfach überschrieben werden.

Kopieren im Explorer fällt flach, da er nur ca. 50.T zulässt. Muss das in 5 Tagen drei mal machen!

Hab schon viel ausprobiert, aber nichts mit dem gewünschten Erfolg.

Vielen Dank für eure Bemühungen.

Basti

Hi,

du sagst doppelte Dateien sollen einfach überschrieben werden.
Heißt das in der Ausgangsstruktur gibt es die gleiche Datei mehrfach? Wenn ja... Sollte dann nicht anhand der letzten Änderung geprüft werden, ob die Datei die schon existiert neuer ist?



So als grobes Konzept und schnell geschrieben XD

@BastiD: Willkommen im Forum.
Bei den vielen Dateien würde ich schon nachsehen, ob die Datei schon da ist und sie dann nicht überschreiben, das spart etwas Zeit.
Oder
Müssen die Dateien kopiert oder können sie auch bewegt werden?
Weil Bewegen (MoveTo(...) geht sehr viel schneller.

Ich denke mal du möchtest da für die Firma irgendeine Ordnerstruktur (bzw. deren Inhalte) auf nem Sicherungslaufwerk sichern.
Hier solltest du bestimmte Dinge prüfen.
1. Sollen identische Dateien mit unterschiedlichem Namen nu einmal hinterlegt werden?
2. Sollen nur identische Dateien oder Dateien mit gleichem Namen ersetzt werden?
3. Werden die Dateien weiterhin auf dem Ausgangslaufwerk gebraucht? Sprich (wie Rod sagt) kannst du die Dateien verschieben oder musst du sie kopieren.

Aus Frage 2 ergibt sich dann noch die Frage... Wie behandelst du zwei Dateien die gleich heißen aber unterschiedlich sind. Ersetzen der Reihe nach, wie sie so dran kommen? Ersetzen anhand des Änderungsdatum oder kann es sogar sein, dass zwei Dateien gleich heißen aber nix miteinander zutun haben? zB. "Tutorial.pdf"?

Danke!

Dateien in der Ordnerstruktur dürfen nicht verändert werden!

Dateien die gleich heißen aber Unterschiedlich sind, sollte die neuere Datei die alte Überschreiben. Da wäre also ein Abgleich nötig.

Danke für den Hinweis

Basti

Dann solltest du in die Schleife noch mit den Befehlen

prüfen welche Datei denn nu aktueller ist.
Würd ja gern dann die Lösung dazu sehen

@BastiD:

RodFromGermany schrieb:

Müssen die Dateien kopiert oder können sie auch bewegt werden?
Weil Bewegen (MoveTo(...) geht sehr viel schneller.

Dateien dürfen nur kopiert, und nicht verrändert werden

@MemoAnMichSelbst
Er findet keine Dateien. fi = Nothing

Wie sieht denn dein Code derzeit aus? Kann man sich sicher sein, dass der richtige Pfad verwendet wird? Ist bei solchen Sachen gerne mal die Fehlerquelle.

Dim dir As New System.IO.DirectoryInfo("D:\BA1145_struktur\")
Dim fi As System.IO.FileInfo
Dim Speicherpfad As String = "D:\Deltaversuch\"
For Each fi In dir.GetFiles(System.IO.SearchOption.AllDirectories)
fi.CopyTo(System.IO.Path.Combine(Speicherpfad.ToString, fi.Name))
Next

Die Pfade findet er und gibt auch die Daten zurück.
Die Zeile Dim fi überspringt er.

Wieso machste denn das
?

Bei " For Each fi As System.IO.FileInfo In dir.GetFiles(System.IO.SearchOption.AllDirectories)" bricht er die Schleife ab.

Mit welcher Meldung bricht er die Schleife denn ab?
Wenn keine kommt, sieht das für mich so aus, als würde er keine Datei in dem jeweiligen Ordner auffinden oO

EDIT:
Mein Fehler...

Wenn du mit gibst, er soll alle Unterordner durchsuchen, musst ihm nen Suchmuster angeben.

Im Angegebenen Ordner befinden sich 3030 Datein für den versuch.
Meldung kommt keine.
Erste Ebene beinhaltet nur Ordner

Siehe mein obiges Edit.

Ich habe mal bei mir

getestet. Das rennt problemlos durch.

Vielen Dank für die Hilfe.

Hier der endgültige Code mit Rückgabe der Dateianzahl und Zeit:

Private Sub bt_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Start.Click
bt_Start.Visible = False
Dim dir As New System.IO.DirectoryInfo(tb_zuDurchsuchen.Text)
Dim Speicherpfad As String = tb_Speicherpfad.Text
Dim i As Integer = 0
Dim Starttime As DateTime
Dim Time As DateTime
Dim dtime As TimeSpan
Starttime = Now
For Each fi As System.IO.FileInfo In dir.GetFiles("*.*", System.IO.SearchOption.AllDirectories)
i = i + 1
Dim fi2 As New System.IO.FileInfo(System.IO.Path.Combine(Speicherpfad, fi.Name))
If fi2.Exists Then
If fi.LastWriteTime > fi2.LastWriteTime Then fi.CopyTo(System.IO.Path.Combine(Speicherpfad, fi.Name), True)
Else
fi.CopyTo(System.IO.Path.Combine(Speicherpfad, fi.Name))
End If
tb_Teil.Text = i.ToString
Time = Now
dtime = Time - Starttime
tb_Time.Text = dtime.ToString

Me.Refresh()
Next

bt_Start.Visible = True

End Sub

Basti

Hi,

kleine Bitte noch...
Wenn du ne Antwort erstellst hast du zwei Reiter "Editor" und "Quellcode"...
Dort auf Quellcode gehen und den Button "VB" benutzen.
Dann wird der in den VB Tags enthaltenen Text auch im Forum als VB-Code formatiert.
Hier dein Code:


Tips:

ist gleich

für schreibfaule

BastiD schrieb:

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

1. dtime = Time - Starttime

Dafür gibt es StopWatch.

na, wie du siehst: es geht auch ohne.
StopWatch ist total überbewertet. Weil es misst auch nur eine ZeitDifferenz, zwar bisserl genauer, als wenn man die ZeitDiff selbst berechnet, aber bei kleinen ZeitDifferenzen ist eh jede Messung ungenau.

Habe noch folgendes "Problem".
Das Skript läuft sauber durch und macht was es soll, Windows sagt mir aber (Keine Rückmeldung).
Fällt jemandem was ein, worann es liegen kann?

Basti