Hallo Leute,
ich habe ein mehr oder weniger spezifisches Problem und finde daher auch keine passenden Ergebnisse im Internet
Ich arbeite an einem Programm, welches mein Dateisystem aufzeichnet. Da meine Festplatte jedoch 1TB Speicherkapazität hat dauert dies dementsprechend lange. Wenn ich jedoch meinen Computer nach einer Weile ausschalte und mein Programm noch nicht fertig ist, muss es beim nächsten Programmstart logischerweise von vorne anfangen...
Meine Frage ist also: Wie setzte ich die Aufzeichnung des Dateisystems an der Stelle fort, an der das Programm beendet wurde?
Die Funktion die ich verwende, ruft sich immer wieder selbst auf und die Ordnernamen befinden sich im Array "AlleOrdner()". Meine Überlegung war dieses Array in eine Datei zwischenzuspeichern und beim erneuten Programmstart einzulesen. Ich verstehe leider nicht wie genau ich das realisieren kann.
PS: es handelt sich um eine Konsolenanwendung!
Vielen dank im vorraus!
DerDomi
ich habe ein mehr oder weniger spezifisches Problem und finde daher auch keine passenden Ergebnisse im Internet
Ich arbeite an einem Programm, welches mein Dateisystem aufzeichnet. Da meine Festplatte jedoch 1TB Speicherkapazität hat dauert dies dementsprechend lange. Wenn ich jedoch meinen Computer nach einer Weile ausschalte und mein Programm noch nicht fertig ist, muss es beim nächsten Programmstart logischerweise von vorne anfangen...
Meine Frage ist also: Wie setzte ich die Aufzeichnung des Dateisystems an der Stelle fort, an der das Programm beendet wurde?
Die Funktion die ich verwende, ruft sich immer wieder selbst auf und die Ordnernamen befinden sich im Array "AlleOrdner()". Meine Überlegung war dieses Array in eine Datei zwischenzuspeichern und beim erneuten Programmstart einzulesen. Ich verstehe leider nicht wie genau ich das realisieren kann.
VB.NET-Quellcode
- Private Sub SucheSubOrdner(ByVal Pfad As Object, Optional ByVal Stammordner_Listed As Object = False)
- Static temp_Dateien As New TextBox
- If Stammordner_Listed = Nothing Or Stammordner_Listed = False Then
- Dim Dateien() As String
- Try
- If Pfad.EndsWith("") = False Then Pfad = Pfad & ""
- temp_Dateien.Text = "[" & Pfad & "]" & vbCrLf
- Dateien = Directory.GetFiles(Pfad, "*.*", SearchOption.TopDirectoryOnly)
- If Dateien.Length = 0 Then Dateien = New String() {"Leeres Verzeichnis"}
- Catch ex As Exception
- Dateien = New String() {"Zugriff verweigert!"}
- End Try
- If Dateien(0) <> "Zugriff verweigert!" And Dateien(0) <> "Leeres Verzeichnis" Then
- Dim FI As FileInfo
- For i2 As Integer = 0 To Dateien.Length - 1
- FI = New FileInfo(Dateien(i2))
- temp_Dateien.Text = temp_Dateien.Text & Dateien(i2) & " - (" & FI.CreationTime & ", " & FI.Length & "KB)" & vbCrLf
- Next
- temp_Dateien.Text = temp_Dateien.Text & vbCrLf
- End If
- Stammordner_Listed = True
- End If
- '###---###
- Dim AlleOrdner() As String
- Try
- AlleOrdner = Directory.GetDirectories(Pfad)
- Catch ex As Exception
- AlleOrdner = New String() {"Zugriff verweigert!"}
- End Try
- For i As Integer = 0 To AlleOrdner.Length - 1
- Threading.Thread.Sleep(30)
- If AlleOrdner(i) <> Pfad Then
- If AlleOrdner(i) <> "Zugriff verweigert!" Then
- Dim Dateien() As String
- Try
- temp_Dateien.Text = temp_Dateien.Text & "[" & AlleOrdner(i) & "]" & vbCrLf
- Dateien = Directory.GetFiles(AlleOrdner(i), "*.*", SearchOption.TopDirectoryOnly)
- If Dateien.Length = 0 Then Dateien = New String() {"Leeres Verzeichnis"}
- Catch ex As Exception
- Dateien = New String() {"Zugriff verweigert!"}
- End Try
- If Dateien(0) <> "Zugriff verweigert!" And Dateien(0) <> "Leeres Verzeichnis" Then
- Dim FI As FileInfo
- For i2 As Integer = 0 To Dateien.Length - 1
- Try
- FI = New FileInfo(Dateien(i2))
- temp_Dateien.Text = temp_Dateien.Text & Dateien(i2) & " - (" & FI.CreationTime & ", " & FI.Length & "KB)" & vbCrLf
- Catch ex As Exception
- temp_Dateien.Text = temp_Dateien.Text & Dateien(i2) & " - (" & ex.Message & ")" & vbCrLf
- End Try
- Next
- temp_Dateien.Text = Maskiere(temp_Dateien.Text & vbcrlf)
- 'temp_Dateien speichern
- temp_Dateien.Text = ""
- End If
- End If
- End If
- Call SucheAlleOrdner(AlleOrdner(i), True)
- End If
- Next i
- End Sub
PS: es handelt sich um eine Konsolenanwendung!
Vielen dank im vorraus!
DerDomi
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „DerDomi“ () aus folgendem Grund: Copy&Paste Fehler