Hallo und guten Tag
Mit folgendem Code lese ich aus einem Verzeichnis die Anzahl der Dateien aus
sagen wir mal, es sind 60 Dateien im Ordner. Als Beispiel MP3.01 bis MP3.60
nun sollen 6 neue Ordner (neueOrdner = CInt(Anzahl / 10) erstellt werden und jeweils 10 Dateien in diese kopiert werden
Ordnername soll mit 00 beginnen und mit 06 enden.
In den Ordner 01 sollen die Dateien mp3.01-mp3.10 kopiert werden
In den Ordner 01 sollen die Dateien mp3.11-mp3.20 kopiert werden
u.s.w
wie müsste ich da vorgehen ?
trebron57
Mit folgendem Code lese ich aus einem Verzeichnis die Anzahl der Dateien aus
VB.NET-Quellcode
- Public Class Form1
- Dim SelectedPath As String
- Dim Anzahl As Integer
- Dim neueOrdner As Integer ' Anzahl neue Ordner
- Private Sub cmdOrdner_auswählen_Click(sender As System.Object, e As System.EventArgs) Handles cmdOrdner_auswählen.Click
- Dim osa As New FolderBrowserDialog
- osa.Description = "Wo soll gesucht werden?"
- If osa.ShowDialog() = DialogResult.OK Then
- SelectedPath = osa.SelectedPath
- ' Dateien zählen
- Dim files As Integer = My.Computer.FileSystem.GetFiles _
- (SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*").Count
- Anzahl = files
- Label1.Text = CStr(Anzahl) ' wieviel dateien sind im Ordner im Label anzeigen
- neueOrdner = CInt(Anzahl / 10) ' Anzahl der Dateien durch 10 dividieren, ergibt Anzahl der neuen Ordner
- Label2.Text = CStr(neueOrdner) ' Anzahl der neuen Ordner im Label anzeigen
- End If
- End Sub
- End Class
sagen wir mal, es sind 60 Dateien im Ordner. Als Beispiel MP3.01 bis MP3.60
nun sollen 6 neue Ordner (neueOrdner = CInt(Anzahl / 10) erstellt werden und jeweils 10 Dateien in diese kopiert werden
Ordnername soll mit 00 beginnen und mit 06 enden.
In den Ordner 01 sollen die Dateien mp3.01-mp3.10 kopiert werden
In den Ordner 01 sollen die Dateien mp3.11-mp3.20 kopiert werden
u.s.w
wie müsste ich da vorgehen ?
trebron57