Datei teilen

    • VB.NET

      Datei teilen

      Hi,

      ich hab mir einen Code zusammengebaut und hab mir gedacht dass der auch von anderen gut gebraucht werden könnte:

      VB.NET-Quellcode

      1. Dim Namen As New ArrayList, Datei As String, Ordner As String
      2. 'Namen für die Dateien, die später wieder gelöscht werden sollen
      4. Private Sub Teilen(ByVal dat As String, ByVal ord As String, ByVal gr As Integer)
      5. ' dat: Dateiname
      6. ' ord: Ordner für geteilte Dateien
      7. ' gr: Größe der einzelnden Dateien in Byte
      8. Datei = dat
      9. Ordner = ord
      10. Dim fs As IO.FileStream
      11. fs = New IO.FileStream(Datei, IO.FileMode.Open)
      12. Dim br As New IO.BinaryReader(fs) 'Datei öffnen
      13. Dim bytes As Byte(), i As Integer = 0
      14. Do
      15. If br.BaseStream.Position + gr <= br.BaseStream.Length Then ' Prüfung ob Datei am Ende
      16. bytes = br.ReadBytes(gr) 'Bytes auslesen
      17. SchreibDatei(bytes, i) 'Bytes in Datei schreiben
      18. Else
      19. bytes = br.ReadBytes(br.BaseStream.Length - br.BaseStream.Position) 'Bytes auslesen
      20. SchreibDatei(bytes, i) 'Bytes in Datei schreiben
      21. Exit Do
      22. End If
      23. i += 1
      24. Application.DoEvents()
      25. Loop
      26. br.Close() 'Datei schließen
      27. Dim datname As String
      28. Dim fi As New IO.FileInfo(Datei)
      29. 'Dateiname zusammensetzen
      30. datname = fi.Name.Substring(0, fi.Name.Length - fi.Extension.Length) & "_zs.bat"
      31. 'Bat-Datei zum Zusammenfügen der Dateien
      32. fs = New IO.FileStream(IO.Path.Combine(Ordner, datname), IO.FileMode.Create)
      33. Dim bat As New IO.StreamWriter(fs)
      34. bat.WriteLine("@echo off") 'Meldung deaktivieren
      35. Dim str As String = "copy /b " '/b für Binär-Kopieen
      36. i = 0
      37. Dim tmpname As String = fi.Name.Substring(0, fi.Name.Length - fi.Extension.Length) & "_zs.tmp"
      38. For Each a As String In Namen
      39. If i = 50 Then 'Begrenzung für Zeilenlänge
      40. str = str.Substring(0, str.Length - 2) & tmpname
      41. bat.WriteLine(str)
      42. str = "copy /b " & tmpname & " + "
      43. i = 0
      44. End If
      45. str &= """" & a & """ + "
      46. i += 1
      47. Application.DoEvents()
      48. Next
      49. str = str.Substring(0, str.Length - 2) & fi.Name
      50. bat.WriteLine(str)
      51. ' alte Dateien wieder löschen lassen
      52. str = "del "
      53. i = 0
      54. For Each a As String In Namen
      55. If i = 50 Then
      56. str = str.Substring(0, str.Length - 2) & tmpname
      57. bat.WriteLine(str)
      58. str = "del "
      59. i = 0
      60. End If
      61. str &= """" & a & """ , "
      62. i += 1
      63. Next
      64. bat.WriteLine(str)
      65. bat.WriteLine("del " & tmpname)
      66. bat.WriteLine("del " & datname)
      67. bat.Close()
      68. MessageBox.Show("Datei erfolgreich geteilt!", "FileSplit", MessageBoxButtons.OK, MessageBoxIcon.Information)
      69. End Sub
      70. Private Sub SchreibDatei(ByVal bytes As Byte(), ByVal Name As Integer)
      71. Dim datname As String
      72. Dim fi As New IO.FileInfo(Datei)
      73. 'Dateiname zusammensetzen
      74. datname = fi.Name.Substring(0, fi.Name.Length - fi.Extension.Length) & "_" & Name.ToString & ".lsp"
      75. Namen.Add(datname)
      76. Dim bw As New IO.BinaryWriter(New IO.FileStream(IO.Path.Combine(Ordner, datname), IO.FileMode.Create))
      77. bw.Write(bytes)
      78. bw.Close()
      79. End Sub

      Bei Fragen könnt ihr euch gern melden!

      vG,
      Lupus