Hey ho Community
Ich weiß ich bin neu und falls ich grade im falschen Forum bin tuts mir leid ^_^'
Derzeit erstelle ich einen Patcher bzw. ein Updater für ein kleines Spiel von mir.
Da ich aber recht neu in VB bin aber mir die Sprache durchaus gefällt, arbeite ich mich ein und bin sehr lernbegierig
Nun zum Problem... Bevor ich etwas Patchen kann muss ich eine Patchliste erstellen (eigenständiges Programm) dass Hash , Directory, und Datum angeben soll.
Bisher läuft alles soweit ganz gut, jedoch möchte ich das der Pfad nicht komplett drin steht, sondern nur die Dateien und deren Unterordner.
Also bsp.:
soll zu
werden.
Derzeitiger Code ist:
#Edit Hoppla den Text der FileList vergessen...
WAHAAAA bitte nicht schimpfen eines meiner ersten VB projekte (bitte auf das Compare mal nicht achten, habs nur erstmal drinne..).
Bräuchte also demnach an dieser Stelle Hilfe mit dem Pfad.
Mfg Shinji
Ich weiß ich bin neu und falls ich grade im falschen Forum bin tuts mir leid ^_^'
Derzeit erstelle ich einen Patcher bzw. ein Updater für ein kleines Spiel von mir.
Da ich aber recht neu in VB bin aber mir die Sprache durchaus gefällt, arbeite ich mich ein und bin sehr lernbegierig
Nun zum Problem... Bevor ich etwas Patchen kann muss ich eine Patchliste erstellen (eigenständiges Programm) dass Hash , Directory, und Datum angeben soll.
Bisher läuft alles soweit ganz gut, jedoch möchte ich das der Pfad nicht komplett drin steht, sondern nur die Dateien und deren Unterordner.
Also bsp.:
soll zu
werden.
Derzeitiger Code ist:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) Handles Button1.Click
- If My.Computer.FileSystem.FileExists("G:\Download\FileList.txt") Then
- My.Computer.FileSystem.DeleteFile("G:\Download\FileList.txt")
- End If
- Dim path As String = "G:\Download\FileList.txt"
- Dim fs As FileStream = File.Create(path)
- fs.Close()
- Dim sFile1 As String = "G:\Download\datei1.ext"
- Dim sFile2 As String = (CurDir() + "\datei2.ext")
- Select Case FileCompare(sFile1, sFile2)
- Case FileCompareStatus.Identical
- textbox_1.Text = "Die Dateien sind identisch!"
- Case FileCompareStatus.SizeDifferent
- For Each lol As String In
- My.Computer.FileSystem.GetFiles(CurDir())
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Hash As Byte()
- Dim Result As String = ""
- Dim entertaste As String = ""
- Dim pfadderdatei As String = ""
- Dim Tmp As String = ""
- Dim datum As String = ""
- Dim FN As New FileStream(lol, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
- MD5.ComputeHash(FN)
- FN.Close()
- Hash = MD5.Hash
- For i As Integer = 0 To Hash.Length - 1
- Tmp = Hex(Hash(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Result += Tmp
- Next
- entertaste = entertaste & vbCrLf
- datum = FileDateTime(lol)
- My.Computer.FileSystem.WriteAllText(
- "G:\Download\FileList.txt", "hash " & Result & " " & lol & " " & datum & entertaste, True)
- Next
- textbox_1.Text = "Liste wurde nun erstellt"
- Case FileCompareStatus.ContentDifferent
- textbox_1.Text = "Die Dateien haben unterschiedlichen Inhalt!"
- Case FileCompareStatus.Error
- textbox_1.Text = "Fehler beim Dateivergleich!"
- End Select
- End Sub
#Edit Hoppla den Text der FileList vergessen...
VB.NET-Quellcode
- hash A19A2658BA69030C6AC9D11FD7D7E3C1 C:\Users\Shinji\documents\visual studio 2012\Projects\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.vshost.exe.manifest 17.03.2010 21:39:16
- hash B049ABC7ADE0E69E89D5914FB1CF6F91 C:\Users\Shinji\documents\visual studio 2012\Projects\WindowsApplication2\WindowsApplication2\bin\Debug\WindowsApplication2.xml 27.06.2014 07:56:54
WAHAAAA bitte nicht schimpfen eines meiner ersten VB projekte (bitte auf das Compare mal nicht achten, habs nur erstmal drinne..).
Bräuchte also demnach an dieser Stelle Hilfe mit dem Pfad.
Mfg Shinji
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Shinjix3“ ()