Hallo.
Mein Programm soll durch alle Dateien in dem Ordner wo es ausgeführt wird durchgehen, sich den jeweiligen Dateinamen & MD5Hash merken und in eine XML schreiben.
Das ganze funktioniert allerdings noch nicht so wie ich will.
Hier mal mein Quellcode:
Durch meinen Log ist mir aufgefallen, dass das Programm noch vor der For-Schleife aufhört und einfach eine leere XML-Datei erstellt.
Wäre über Ratschläge dankbar, bin grad Ideenlos woher das kommen könnte
Mein Programm soll durch alle Dateien in dem Ordner wo es ausgeführt wird durchgehen, sich den jeweiligen Dateinamen & MD5Hash merken und in eine XML schreiben.
Das ganze funktioniert allerdings noch nicht so wie ich will.
Hier mal mein Quellcode:
VB.NET-Quellcode
- Dim sPath As String = Application.StartupPath
- ' Directory-Object erstellen
- Dim oDir As New System.IO.DirectoryInfo(sPath)
- ' alle Dateien des Ordners
- Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
- ' Datei-Array durchlaufen und in
- ' ListBox übertragen
- Dim oFile As System.IO.FileInfo
- ' Auswahl einer Kodierungsart für die Zeichenablage
- Dim enc As New System.Text.UnicodeEncoding
- ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen:
- Dim XMLobj As Xml.XmlTextWriter _
- = New Xml.XmlTextWriter("patchlist.xml", enc)
- ' Formatierung: 4er-Einzüge verwenden
- XMLobj.Formatting = Xml.Formatting.Indented
- XMLobj.Indentation = 4
- XMLobj.WriteStartDocument()
- XMLobj.WriteStartElement("Patchlist")
- MsgBox(sPath)
- If sPath.EndsWith("\") And sPath.Length > 3 Then
- sPath = sPath.Substring(0, sPath.Length - 1)
- End If
- For Each oFile In oFiles
- XMLobj.WriteStartElement("FILE")
- XMLobj.WriteAttributeString("filename", oFile.Name)
- XMLobj.WriteAttributeString("md5val", MD5FileHash(sPath & "\" & oFile.Name))
- XMLobj.WriteEndElement()
- Next
- XMLobj.WriteEndElement()
- XMLobj.Flush()
- XMLobj.Close() ' Document
Durch meinen Log ist mir aufgefallen, dass das Programm noch vor der For-Schleife aufhört und einfach eine leere XML-Datei erstellt.
Wäre über Ratschläge dankbar, bin grad Ideenlos woher das kommen könnte