Kopieren von Datein, ProgressBar, VB.NET, NOOB need help ^^

Question

Hallo Leute

ich hab erst mit dem programmieren angefangen, bin ein total noob
und suche schon seit tagen nach hilfreichen Themen, - Ergebnis nichts gefunden ^^

ich möchte eine Anwendung programmieren
mit der ich aus dem Applicaton, Ordner = bin/ordner1/Datei.abc     (Ordner ist in der application integriert)
Datein auf einen USB - Stick kopieren kann, externes laufwerk


Application (Form1) sollte so aus sehen


ComboBox:     
mit auswahl möglichkeit, 3auswahl möglichkeiten Datei.abc, Datei1.abc Datei2.abc, muss ja auch zwischengespeichert werden in einer datei
(bsp: Datei.abc-installieren) die installiert werden soll, man könnte auch ein Button nähmen. (beide beispiele Bitte - Button & ComboBox )


Button Kopieren:
mit dem man die Datei, die ausgewählt wurde kopiert (auf einen USB stick Ordner2)
Das kopieren sollte mit einer fortschrits anzeige angezeigt werden = ProgressBar (timer)


TextBox:
Um eine Beschreibung anzuzeigen, das zur ComboBox - Datei-installieren gehört. siehe ComboBox Auswahl (bsp: Datei.abc-installieren)


PictureBox:
in dem ein Bild angezeigt wird, das zur ComboBox - Datei.abc-installieren gehört. (siehe ComboBox Auswahl (bsp: Datei.abc-installieren)




Das selbe über Button:
mehrere dateien die in der applikation mit drin sind Ordner bin, auf den USB stick in einen Ordner kopieren. selbe wie oben aber über Button.

Answer 1

Hoi,

wie ist denn Dein Lösungsansatz bis jetzt ?
Ein Code wäre da hilfreich.

Doei
Trixi

Answer 2

ich hab bis jetzt nur die form, buttons, progressbar ... - noch nichts programmiert,

ich weis nicht wo ich da anfangen soll, wie gesagt total noob ^^


ungefähr so:

link zum bild --->>>>      http://pixup.org/bilder/220/form9ZFEO.jpg

Answer 3

ich weiss nicht wie es mit progressbar geht also hatte ich da so eine idee:D

        Dim bytes() As Byte = IO.File.ReadAllBytes(Dateinamealt)
        Dim newbytes(UBound(bytes)) As Byte
        Progressbar1.MaxValue = UBound(bytes) + 1
        For i As Integer = 0 To UBound(bytes)
            newbytes(i) = bytes(i)
            Progessbar1.Value += 1
        Next
       
        IO.File.WriteAllBytes(Dateinameneu, newbytes)
        Progressbar1.Value += 1

nun zum usbstick
dafür müsste man wissen welche laufwerkbezeichnung der USB stick hatt wie z.b. N dann kommt einfach beim dateinameneu N:\Datei.txt
dazu noch ein par if abracgen ob es das verzeichnes wirklich gibt wie z.b. if not io.directory.exsits(Pfad) then io.directory.create(pfad)