Hallo Forum,
Mir war ein bisschen langweilig. Deswegen hab ich für euch ein kleines Tool gebastelt. Mit dem tool wie ihr wohl schon seht kann man ordner mit einer ProgressBar anzeige kopieren. Bei diesem Tool ist neu das die Ordner samt unterodrner komplett kopiert werden. Vielleicht könnte man es noch kürzer machen. Ich weiß es gerade nicht.
Ihr braucht:
Eine ProgessBar (Name = ProgressBar1)
Ein Button (Name = Button2)
Ein Label (Name = Label_Status)
Habt spaß dabei.
Spoiler anzeigen
Euer Mr. VB
Mir war ein bisschen langweilig. Deswegen hab ich für euch ein kleines Tool gebastelt. Mit dem tool wie ihr wohl schon seht kann man ordner mit einer ProgressBar anzeige kopieren. Bei diesem Tool ist neu das die Ordner samt unterodrner komplett kopiert werden. Vielleicht könnte man es noch kürzer machen. Ich weiß es gerade nicht.
Ihr braucht:
Eine ProgessBar (Name = ProgressBar1)
Ein Button (Name = Button2)
Ein Label (Name = Label_Status)
Habt spaß dabei.
VB.NET-Quellcode
- Public Sub Button2_Click() Handles Button2.Click
- Control.CheckForIllegalCrossThreadCalls = false
- Dim T As New Thread(AddressOf Kopierern1)
- T.Start()
- End Sub
- Sub KopiereDateivon(ByVal Source As String, ByVal Target As String, Optional ByVal Überrschreiben As Boolean = True)
- File.Copy(Source, Target, Überrschreiben)
- End Sub
- Sub Kopierern1()
- Dim verzeichnis As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\" ' vom kopier verzeichnis
- Dim insverzeichnis As String = "r\" ' ins kopier verzeichnis
- Dim OrdnerListe As New List(Of String)
- Dim DateiListe As New List(Of String)
- For Each Ordner In My.Computer.FileSystem.GetDirectories(verzeichnis, FileIO.SearchOption.SearchAllSubDirectories) ' Ordner Suchen
- Ordner = Ordner.Replace(verzeichnis, "")
- OrdnerListe.Add(Ordner) ' Ordner in die Liste einfügen
- Directory.CreateDirectory(insverzeichnis + Ordner) ' Unterordner erstellen
- Next
- For Each Datei In My.Computer.FileSystem.GetFiles(verzeichnis, FileIO.SearchOption.SearchAllSubDirectories) ' Dateien Suchen
- Datei = Datei.Replace(verzeichnis, "")
- DateiListe.Add(Datei) ' Dateien in die Liste einfügen
- Next
- ProgressBar1.Maximum = DateiListe.Count ' ProgressBar einstellen
- ProgressBar1.Value = "0"
- For Each file In DateiListe ' Dateien Kopieren
- Dim DateiInfo As String = My.Computer.FileSystem.GetFileInfo(verzeichnis + file).Name ' DateiName
- Label_Status.Text = DateiInfo ' Der Status muss ja auch angezeigt werden ^^
- KopiereDateivon(verzeichnis + file, insverzeichnis + file) ' Datei kopieren
- ProgressBar1.Increment(1) ' ProgressBar füllen
- Next
- Msgbox("Fertig!",MsgboxStyle.Information,"Info")
Euer Mr. VB
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Mr. VB“ ()