@Madde Die Schnipsel musst Du schon verstehen um Dir die paar Zeilen Code zu schreiben die Du brauchst für Deine Anforderung. Und @exc-jdbi hat Dir alle Anlaufstellen genannt die nötig sind.
Auch die Schlagworte um eigenständig zu googlen wie
Nun bietet Dir @ErfinderDesRades schon eine Komplettlösung an.
Meine Lösung ist sicher nicht perfekt und hat da ein paar "unebeneheiten", wo Dich @ErfinderDesRades jetzt auch noch nach fragt.
Ich hadere immer noch mit der "Leerdatei" weil ich nicht weiß, wie die Aussehen muss damit dein Konstrukt funktioniert. Wenn eine einfache Nullbytedatei reicht ist meine Lösung sogar Kontraproduktiv.
Aber vielleicht kommen wir ja mal weiter damit:
Auch die Schlagworte um eigenständig zu googlen wie
DirectoryInfo
, FileInfo
und Array
sind schon mehrfach gefallen, auch von @RodFromGermany.Nun bietet Dir @ErfinderDesRades schon eine Komplettlösung an.
Meine Lösung ist sicher nicht perfekt und hat da ein paar "unebeneheiten", wo Dich @ErfinderDesRades jetzt auch noch nach fragt.
Ich hadere immer noch mit der "Leerdatei" weil ich nicht weiß, wie die Aussehen muss damit dein Konstrukt funktioniert. Wenn eine einfache Nullbytedatei reicht ist meine Lösung sogar Kontraproduktiv.
Aber vielleicht kommen wir ja mal weiter damit:
VB.NET-Quellcode
- Private Shared Function CreateBitmapAtRuntime() As Bitmap
- Dim bmp As New Bitmap(78, 78)
- Using gr As Graphics = Graphics.FromImage(bmp)
- gr.Clear(Color.FromKnownColor(KnownColor.Black))
- End Using
- Return bmp
- End Function
- Private Sub renameFilesInFolder()
- Dim sourcePath As String = "d:\"
- Dim searchPattern As String = "*.tif"
- Dim bmp As Bitmap = CreateBitmapAtRuntime()
- Dim curDir As New DirectoryInfo(sourcePath)
- Dim z As Integer = 1 'Zähler für den Dateinamen
- Dim f_info As IOrderedEnumerable(Of FileInfo) = curDir.GetFiles(searchPattern).OrderBy(Function(num) num.Name) 'Sortiert nach Name. num.CreationTime würde chronologisch sortieren
- Dim c As Integer = f_info.Count - 1 'Für For-Schleife, wir starten bei 0
- For i = 0 To c
- f_info(i).MoveTo(Path.Combine(f_info(i).Directory.FullName, z.ToString("D5") & "_" & f_info(i).Name)) 'Hier ohne Test auf Vorhandensein der Zieldatei
- If i < c Then 'nach der letzten Datei soll die Bedingung nicht erfüllt sein um ein Abschluß-Leer-TIF zu vermeiden
- bmp.Save(Path.Combine(f_info(i).Directory.FullName, (z + 1).ToString("D5") & "_leere_seite.tif"))
- End If
- z += 2
- Next
- End Sub