Daten zu USB schicken

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von TanoshiiSuta.

    Daten zu USB schicken

    Hallo liebes Forum,

    ist es möglich ein Programm zu erstellen, welches ausgewählte Daten an einen USB-Stick schickt, den man vorher in einer Listbox ausgewählt hat,

    wenn ja hätte jemand eine Idee wie man diese Idee umsetzten kann?

    LG Alex034

    dankee ich werde mich erstmal mit diesen quellen beschäftigen :)

    edit: klappt alles soweit, aber wie bekomme ich jetzt ein file auf den USB?

    und wie kann er mir schon vorher alle USB's anzeigen, die im PC ,,stecken" ?

    bisher habe ich als speichern das:

    VB.NET-Quellcode

    1. IO.File.Copy(ofd.FileName, ListBox1.SelectedItem + "was muss hier rein?")


    LG

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alex034“ ()

    TanoshiiSuta schrieb:

    Gerade schnell Geschrieben

    Werbungs-Nötigungs-Fileserver :thumbdown:
    Das Forum bietet eigene Upload-Möglichkeiten. :thumbup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So Dank der Hilfe alles soweit fertig, nun möchte ich, da es auch größere Files gibt, eine Progressbar einfügen, die mir anzeigt wann das kopieren fertig ist.
    Einen Timer habe ich, aber wie füge ich jetzt in den Code ein, dass er wenn ich auf Export klicke den timer (progressbar) startet und wenn er fertig ist, die progressbar = 100% ist?

    Hat einer eine Idee? Hier der Code von Button1:

    VB.NET-Quellcode

    1. If IO.File.Exists(OpenFileDialog1.FileName) Then
    2. If IO.Directory.Exists("F:/") Then
    4. Dim name As String = New Uri(OpenFileDialog1.FileName).AbsolutePath
    5. name = name.Substring(name.LastIndexOf("/") + 1, name.Length - name.LastIndexOf("/") - 1)
    7. MessageBox.Show(name)
    8. IO.File.Copy(OpenFileDialog1.FileName, (ListBox1.SelectedItem.ToString + "/" + name))


    PS: Wie kann ich einen ganzen Ordner kopieren?

    LG

    Progressbar:
    Da musst Du alles zu Fuß machen, sonst weißt Du ja nicht, wo gerade Du Dich bei Copy befindest.
    - Files in Blöcken stückweise
    oder
    - Files einzeln
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
    2. Dim oSubDir As IO.DirectoryInfo
    3. Dim oFile As IO.FileInfo
    4. Dim i As Integer = 0
    7. For Each oFile In oDir.GetFiles()
    8. With oFile
    9. If IO.File.Exists(oFile.FullName) Then
    10. If IO.Directory.Exists(ListBox1.SelectedItem.ToString) Then
    11. Name = oFile.Name
    12. MessageBox.Show(Name)
    13. IO.File.Copy(oFile.FullName, (ListBox1.SelectedItem.ToString + "/" + Name))
    14. End If
    15. End If
    18. End With
    19. ProgressBar1.value = i
    20. ProgressBar1.Maximum = oDir.GetFiles.Rank
    21. i+=1
    22. Next
    23. For Each oSubDir In oDir.GetDirectories()
    24. Rekursiv(oSubDir)
    25. Next
    26. End Sub


    nicht alles von mir : vbarchiv.net/tipps/tipp_1506-d…r-rekursiv-ermitteln.html , aber die hälfte :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TanoshiiSuta“ ()

    Tut mir Leid, wenn ich heute einfach zu dumm bin -.-
    Hier mal der ganze Code:
    Ich steh irgendwie auf'm Schlauch, tut mir leid

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class frmain
    3. Private allDrives As New List(Of DriveInfo)
    5. Private Const WM_DEVICECHANGE As Integer = &H219
    6. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    7. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    9. Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
    10. MyBase.WndProc(msg)
    11. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEARRIVAL Then
    12. 'alle laufwerke durchlaufen und in der liste suchen
    13. For Each s As String In Directory.GetLogicalDrives
    14. find_driveinfo_arg = s
    15. Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
    16. If d Is Nothing Then
    17. 'laufwerk wurde in der liste nicht gefunden und ist somit neu
    19. 'laufwerk jetzt zur liste hinzufügen
    20. allDrives.Add(New DriveInfo(s))
    21. MsgBox("USB: " & s & " wurde hinzugefügt")
    22. Scann()
    23. End If
    24. Next
    25. End If
    26. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEREMOVECOMPLETE Then
    27. 'alle laufwerke aus der liste prüfen
    28. Dim temp As List(Of DriveInfo) = GetAllDrives()
    29. For Each d As DriveInfo In allDrives
    30. find_driveinfo_arg = d.Name
    31. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
    32. If lost Is Nothing Then
    33. 'laufwerk wurde in der liste nicht mehr gefunden
    35. 'laufwerk aus der liste entfernen
    36. allDrives.Remove(d)
    37. 'schleife verlassen
    38. Scann()
    39. Exit For
    40. End If
    41. Next
    42. End If
    43. End Sub
    45. Sub Scann()
    46. ListBox1.Items.Clear()
    47. For Each Ad In allDrives
    48. ListBox1.Items.Add(Ad.RootDirectory)
    49. Next
    50. End Sub
    52. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    53. allDrives = GetAllDrives()
    54. Scann()
    55. End Sub
    57. Private Function GetAllDrives() As List(Of DriveInfo)
    58. Dim ret As New List(Of DriveInfo)
    59. 'und wieder befüllen
    60. For Each d As String In Directory.GetLogicalDrives
    61. ret.Add(New DriveInfo(d))
    62. Next
    63. Return ret
    64. End Function
    66. 'suchfunktion zum finden der laufwerke in der collection
    67. Private find_driveinfo_arg As String
    68. Private Function find_driveinfo(ByVal d As DriveInfo)
    69. If d.Name = find_driveinfo_arg Then
    70. Return True
    71. Else
    72. Return False
    73. End If
    74. End Function
    76. 'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    77. ' If IO.File.Exists(OpenFileDialog1.FileName) Then
    78. ' If IO.Directory.Exists("F:/") Then
    80. ' Dim name As String = New Uri(OpenFileDialog1.FileName).AbsolutePath
    81. ' name = name.Substring(name.LastIndexOf("/") + 1, name.Length - name.LastIndexOf("/") - 1)
    83. ' MessageBox.Show(name)
    84. ' IO.File.Copy(OpenFileDialog1.FileName, (ListBox1.SelectedItem.ToString + "/" + name))
    85. ' Else
    86. ' MessageBox.Show("Bitte wähle eine driver aus")
    87. ' End If
    88. ' Else
    89. ' MessageBox.Show("Bitte wähle eine datei aus")
    90. ' End If
    91. ' End Sub
    93. ' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    94. ' OpenFileDialog1.ShowDialog()
    95. ' End Sub
    97. Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    99. End Sub
    100. Private Sub Button2_Click(ByVal oDir As IO.DirectoryInfo)
    101. Dim oSubDir As IO.DirectoryInfo
    102. Dim oFile As IO.FileInfo
    103. Dim i As Integer = 0
    106. For Each oFile In oDir.GetFiles()
    107. With oFile
    108. If IO.File.Exists(oFile.FullName) Then
    109. If IO.Directory.Exists(ListBox1.SelectedItem.ToString) Then
    110. Name = oFile.Name
    111. MessageBox.Show(Name)
    112. IO.File.Copy(oFile.FullName, (ListBox1.SelectedItem.ToString + "/" + Name))
    113. End If
    114. End If
    117. End With
    118. ProgressBar1.Value = i
    119. ProgressBar1.Maximum = oDir.GetFiles.Rank
    120. i += 1
    121. Next
    122. For Each oSubDir In oDir.GetDirectories()
    123. Button2_Click(oSubDir)
    124. Next
    125. End Sub
    127. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    128. OpenFileDialog1.ShowDialog()
    129. End Sub
    130. End Class


    Das, wo der Fehler sein müsse ist hier:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. ' If IO.File.Exists(OpenFileDialog1.FileName) Then
    3. ' If IO.Directory.Exists("F:/") Then
    5. ' Dim name As String = New Uri(OpenFileDialog1.FileName).AbsolutePath
    6. ' name = name.Substring(name.LastIndexOf("/") + 1, name.Length - name.LastIndexOf("/") - 1)
    8. ' MessageBox.Show(name)
    9. ' IO.File.Copy(OpenFileDialog1.FileName, (ListBox1.SelectedItem.ToString + "/" + name))
    10. ' Else
    11. ' MessageBox.Show("Bitte wähle eine driver aus")
    12. ' End If
    13. ' Else
    14. ' MessageBox.Show("Bitte wähle eine datei aus")
    15. ' End If
    16. ' End Sub
    18. ' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. ' OpenFileDialog1.ShowDialog()
    20. ' End Sub
    22. Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    24. End Sub
    25. Private Sub Button2_Click(ByVal oDir As IO.DirectoryInfo)
    26. Dim oSubDir As IO.DirectoryInfo
    27. Dim oFile As IO.FileInfo
    28. Dim i As Integer = 0
    31. For Each oFile In oDir.GetFiles()
    32. With oFile
    33. If IO.File.Exists(oFile.FullName) Then
    34. If IO.Directory.Exists(ListBox1.SelectedItem.ToString) Then
    35. Name = oFile.Name
    36. MessageBox.Show(Name)
    37. IO.File.Copy(oFile.FullName, (ListBox1.SelectedItem.ToString + "/" + Name))
    38. End If
    39. End If
    42. End With
    43. ProgressBar1.Value = i
    44. ProgressBar1.Maximum = oDir.GetFiles.Rank
    45. i += 1
    46. Next
    47. For Each oSubDir In oDir.GetDirectories()
    48. Button2_Click(oSubDir)
    49. Next
    50. End Sub
    52. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    53. OpenFileDialog1.ShowDialog()
    54. End Sub
    55. End Class

Facebook
Telefonspende