Geladene Dateien speichern

  • VB.NET

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von GameGamer.

    Geladene Dateien speichern

    Hallo,

    ich habe folgendes Anliegen und suche nach Umsetzungsmöglichkeiten.
    Ich lade Dateien von irgendeinem Ort meiner Festplatte mit dem OpenFileDialog in eine Listbox. Alle geladene Dateien sollen aber auch noch in einen anderen Ordner kopiert werden. Wie kann ich das umsetzen?

    Gruß

    Ich hab dir ein kleines Beispiel dafür gemacht, musst du vieleicht etwas anpassen.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private fileList As New List(Of FileInfo)
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Using ofd As New OpenFileDialog
    9. ofd.Multiselect = True
    10. If ofd.ShowDialog <> Windows.Forms.DialogResult.OK Then
    11. Return
    12. End If
    13. For Each _file In ofd.FileNames
    14. fileList.Add(New FileInfo(_file))
    15. Next
    16. End Using
    17. End Sub
    19. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. If fileList.Count <> 0 Then
    21. Using fbd As New FolderBrowserDialog
    22. If fbd.ShowDialog <> Windows.Forms.DialogResult.OK Then
    23. Return
    24. End If
    25. For Each _file In fileList
    26. File.Copy(_file.FullName, Path.Combine(fbd.SelectedPath, _file.Name))
    27. Next
    28. End Using
    29. Else
    30. MessageBox.Show("Nix geladen, nix zu kopieren!")
    31. End If
    33. End Sub
    35. End Class

    Es geht doch auch einfacher:

    VB.NET-Quellcode

    1. For each item in listbox1.items
    3. IO.file.Copy(item.toString, "Pfad wo's hinkopiert wird")
    5. Next

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

    GameGamer schrieb:

    in eine Listbox
    Habe ich Dich richtig verstanden?
    Der gesamte Dateiinhalt ist der Inhalt eines ListBox-Items?
    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!

    @Kilian_98: Nicht überall "ToString" anhängen. item ist bereits vom Typ String.
    Zudem bitte unbedingt auf Rechtschreibung achten.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Kilian_98 schrieb:

    Dein eigenes Lieblingssprichwort: Option Strict On

    Hä? Was hat das mit "Option Strict On" zu tun? item ist ein String und somit ist alles gut, da braucht es kein "ToString()".
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Kann ich nicht nachvollziehen.
    trade-programming.de/pixelkram/gmczsyldij.png

    Die ListBoxItem-Klasse gibt es auch nur in WPF, das heißt irgendwas stimmt bei dir nicht.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Das ListBoxItem gibt es nur in WPF, wie gesagt.
    Kannst du mir den Fehler mal zeigen, denn ich bin da nen bisschen verwundert drüber.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ah k, nehmen tut er es deshalb eben trotzdem. Na ja ok, dann könnte man das ToString sogar anhängen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Jau, Object geht nicht in String, okay, mein Fehler.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Dann hast du wohl keine Endung angegeben, wie soll .NET das auch sonst wissen?
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Wenn du einen Ordner kopieren möchtest, der dann auch keine
    Datei ist, muss du den Code etwas umändern:

    VB.NET-Quellcode

    1. For each item in listbox1.items
    3. IO.directory.Copy(item.toString, "Pfad wo's hinkopiert wird")
    5. Next


    Musst halt schauen, ob die 'Datei' ein Ordner ist, da ist VB etwas pingelig

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

    Hab da jetzt ein Beispiel gemacht wie das anständig funktioniert. Wobei ich auch darauf aufmerksam machen Möchte:

    [VB.NET] Keine Strings in die File-Listbox!

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private fileList As New List(Of FileInfo)
    6. Private BS As New BindingSource
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. BS.DataSource = fileList
    11. ListBox1.DataSource = BS
    12. ListBox1.DisplayMember = "Name"
    13. Using ofd As New OpenFileDialog
    14. ofd.Multiselect = True
    15. If ofd.ShowDialog <> Windows.Forms.DialogResult.OK Then
    16. Return
    17. End If
    18. For Each _file In ofd.FileNames
    19. BS.Add(New FileInfo(_file))
    20. Next
    21. End Using
    22. End Sub
    24. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    25. If BS.Count <> 0 Then
    26. Using fbd As New FolderBrowserDialog
    27. If fbd.ShowDialog <> Windows.Forms.DialogResult.OK Then
    28. Return
    29. End If
    30. Dim tmplist As New List(Of FileInfo)
    31. For Each _file As FileInfo In BS
    32. Dim newfile As String = Path.Combine(fbd.SelectedPath, _file.Name)
    33. If File.Exists(newfile) Then
    34. If MessageBox.Show("Datei existiert bereits, soll sie überschrieben werden?", "Warnung", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
    35. File.Copy(_file.FullName, newfile, True)
    36. tmplist.Add(_file)
    37. End If
    38. Else
    39. File.Copy(_file.FullName, newfile)
    40. tmplist.Add(_file)
    41. End If
    42. Next
    43. For Each tmp As FileInfo In tmplist
    44. BS.Remove(tmp)
    45. Next
    46. End Using
    47. Else
    48. MessageBox.Show("Nix geladen, nix zu kopieren!")
    49. End If
    51. End Sub
    53. End Class

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