Controls
1 x Button: mit dem namen "Button1"
1 x Progressbar: mit dem namen "Progressbar1"
3 x Label: mit dem namen " Label1, Label2, Label3"
1 x Verzeichnis in C: mit dem namen "test" ' oder du eanderst es wie du willst
1 x Groupbox1 (optional, schaut eben etwas besser aus als ohne)
Gr - miko
1 x Button: mit dem namen "Button1"
1 x Progressbar: mit dem namen "Progressbar1"
3 x Label: mit dem namen " Label1, Label2, Label3"
1 x Verzeichnis in C: mit dem namen "test" ' oder du eanderst es wie du willst
1 x Groupbox1 (optional, schaut eben etwas besser aus als ohne)
VB.NET-Quellcode
- Public Class Form1
- Dim d As Integer ' datein im verzeichnis
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim verzeichnis As String = "c:\test\" ' vom kopier verzeichnis
- Dim insverzeichnis As String = Application.StartupPath & "/" & Mid(verzeichnis, 4, 4) & "/" ' kopiert ins verzeichnis "test" das im programverzeichnis ist
- IO.Directory.CreateDirectory(Application.StartupPath & "/" & Mid(verzeichnis, 4, 4)) ' erzeugt verzeichnis im program verzeichnis mit dem selben namen wie standverzeichnis
- For Each c As String In IO.Directory.GetFiles(verzeichnis, "*.*") ' zeahlt die datein damit ich ein echtes progressanzeige kriege
- d = d + 1
- Next c
- ' hier startet der kopier vorgang und die progress anzeige
- Try
- For Each s As String In IO.Directory.GetFiles(verzeichnis, "*.*") ' kopier vorgang
- For Each i As String In IO.Directory.GetFiles(verzeichnis, "*.*") ' pfad und name der datei anzeige
- Label1.Text = i
- Label1.Refresh()
- Next i
- Dim fi As New IO.FileInfo(s)
- IO.File.Copy(s, insverzeichnis & fi.Name)
- ProgressBar1.Value = ProgressBar1.Value + ((100 / d) - 0.5).ToString("00") ' ausrechnung der prozente (bis ca. 4% fehlhaft) wird jedoch unten koriegiert
- Label2.Text = ProgressBar1.Value
- Label2.Refresh()
- Next s
- ProgressBar1.Value = ProgressBar1.Maximum ' prozent auf 100% gestellt da es sein kann dass eine nicht mit 100 dividierte zahl von datein geben kann und so koennte die maximum.value ueberschritten werden und due kriegst ein error
- Label2.Text = ProgressBar1.Value ' auf 100% gesetzt
- Catch ex As Exception
- MsgBox("verzeichnis existiert schon")
- End Try
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- d = 0
- End Sub
- End Class
Gr - miko
Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen".