Rekursiv ab beliebigem Startpunkt alle Verzeichnisse durchlaufen - Performance optimieren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Rekursiv ab beliebigem Startpunkt alle Verzeichnisse durchlaufen - Performance optimieren

    Hallo zusammen,

    ich bin neu hier und habe folgendes Problem:

    Ich habe ein Tool geschrieben, welches es ermöglicht, ab einem beliebigen Startpfad alle Unterordner zu durchlaufen, die darin enthaltenen Daten auszuwerten, eine Statistik dazu zu erstellen und hinterher, selektierte Dateien inklusive der Verzeichnisstruktur in einen beliebigen Zielpfad zu kopieren.

    Das funktioniert auch alles schon. Allerdings ist es bei Startpunkten mit extrem vielen Unterverzeichnissen und vielen Dateien wenig performant.

    Ich gehe davon aus, dass das zwei Ursachen hat - zum einen, die Rekursion beim Durchlaufen der Verzeichnisse, zum anderen die vielen Operationen mit long Datentypen, die für die statistische Auswertung der Daten notwendig sind.

    Gibt es eine Möglichkeit die Verzeichnisse ohne Rekursion zu durchlaufen, und habt ihr sonst Vorschläge zur Optimierung des Codes?

    Ich bin für jede Hilfe dankbar. Hier zunächst einmal der meines Erachtens nach "bremsende" Codeausschnitt:

    Quellcode

    1. ' Sub durchlaufe - Durchläuft die gesamte Struktur durch Rekursion
    2. Sub durchlaufe(path As String)
    3. On Error GoTo wartemarke
    4. ' Deklaration
    5. Dim name$, a%, i%
    6. ' Pfad anvisieren
    7. name = Dir(path, vbDirectory)
    8. ' a speichert die Ordnerstelle (Index), da Dir() nicht rekursiv speichert
    9. a = 0
    10. ' Hier passiert alles
    11. While name <> ""
    12. ' Wenn Ordner dann gehe rekursiv rein, sonst überprüfe Dateiendung
    13. If name <> "." And name <> ".." Then
    14. On Error Resume Next
    15. If (ordner(GetAttr(path & name))) Then
    16. On Error Resume Next
    17. durchlaufe(path & name & "\")
    18. On Error Resume Next
    19. name = Dir(path, vbDirectory)
    20. On Error Resume Next
    21. For i = 1 To a
    22. name = Dir()
    23. On Error Resume Next
    24. Next i
    25. Else
    26. ' Hier geschieht die Dateianalyse
    27. 'If Len(path & name) > 1 Then
    28. On Error Resume Next
    29. x = My.Computer.FileSystem.GetFileInfo(path & name).Length
    30. z = My.Computer.FileSystem.GetFileInfo(path & name).CreationTime
    31. y = dateiendung(name)
    32. alter = getalter(z)
    33. flag = False
    34. If alter = True Then
    35. alt = alt + x
    36. Else
    37. neu = neu + x
    38. End If
    39. If alter = True And y = "xlsm" Or y = "xlsx" Or y = "ppt" Or y = "pps" Or y = "ppsx" Or y = "pot" Or y = "pptx" Or y = "potx" Or y = "doc" Or y = "docx" Or y = "docm" Or y = "xls" Or y = "xlsx" Or y = "xlsm" Or y = "csv" Or y = "cal" Or y = "eml" Or y = "emm" Or y = "pdf" Or y = "txt" Or y = "vcf" Or y = "vcs" Then
    40. altoffice = altoffice + x
    41. flag = True
    42. ElseIf alter = False And y = "xlsm" Or y = "xlsx" Or y = "ppt" Or y = "pps" Or y = "ppsx" Or y = "pot" Or y = "pptx" Or y = "potx" Or y = "doc" Or y = "docx" Or y = "docm" Or y = "xls" Or y = "xlsx" Or y = "xlsm" Or y = "csv" Or y = "cal" Or y = "eml" Or y = "emm" Or y = "pdf" Or y = "txt" Or y = "vcf" Or y = "vcs" Then
    43. neuoffice = neuoffice + x
    44. flag = True
    45. End If
    46. If alter = True And y = "aac" Or y = "avi" Or y = "bmp" Or y = "emf" Or y = "gif" Or y = "ico" Or y = "jpeg" Or y = "jpg" Or y = "m4a" Or y = "mp3" Or y = "mp4" Or y = "png" Or y = "wav" Or y = "wma" Or y = "wmf" Or y = "wmv" Then
    47. altmultimedia = altmultimedia + x
    48. flag = True
    49. ElseIf alter = False And y = "aac" Or y = "avi" Or y = "bmp" Or y = "emf" Or y = "gif" Or y = "ico" Or y = "jpeg" Or y = "jpg" Or y = "m4a" Or y = "mp3" Or y = "mp4" Or y = "png" Or y = "wav" Or y = "wma" Or y = "wmf" Or y = "wmv" Then
    50. neumultimedia = neumultimedia + x
    51. flag = True
    52. End If
    53. If alter = True And y = "zip" Or y = "rar" Or y = "7z" Then
    54. altarchiv = altarchiv + x
    55. flag = True
    56. ElseIf alter = False And y = "zip" Or y = "rar" Or y = "7z" Then
    57. neuarchiv = neuarchiv + x
    58. flag = True
    59. End If
    60. If alter = True And flag = False Then
    61. altother = altother + x
    62. ElseIf alter = False And flag = False Then
    63. neuother = neuother + x
    64. End If
    65. zeile = zeile + 1
    66. End If
    67. End If
    68. If False Then
    69. wartemarke: zaehler = zaehler + 1
    70. End If
    71. 'End If
    72. a = a + 1
    73. ' Auf nächsten Ordner zugreifen
    74. name = Dir()
    75. On Error Resume Next
    76. End While
    77. End Sub
    79. Function ordner(i As Integer) As Boolean
    80. Dim a$
    81. a = ""
    82. While i <> 0
    83. If i Mod 2 = 1 Then
    84. a = "1" & a
    85. i = i - 1
    86. Else
    87. a = "0" & a
    88. End If
    89. i = i / 2
    90. End While
    91. If Len(a) < 5 Then
    92. ordner = False
    93. ElseIf "1" <> Mid(a, Len(a) - 4, 1) Then
    94. ordner = False
    95. Else
    96. ordner = True
    97. End If
    98. End Function

    Du nutzt also VB6 für dieses Programm? Wenn das wirklich so ist, würde ich mal schauen, um wie viel es in VB.NET schneller ist. Ich arbeite nebenbei an einem Dateisuchtool - das durchläuft mit C# ganze Laufwerke mit bis zu 1TB an Daten in ca. 30s. In VB.NET lässt sich die gleiche Performance erreichen.

    @nafets Jou.
    @MM215 Willkommen im Forum. :thumbup:
    In der Titelzeile steht VB6 und .NET 4.5.
    Das widerspricht sich.
    Dein Code sieht nach VB6 aus.
    Nimm bitte das .NET 4.5 oben wieder raus.
    und / oder
    Arbeite gleich mit .NET.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,

    danke erstmal fürs Willkommen heißen.

    Also vielleicht kurz dazu:

    Ich habe vorher zwar schon einiges in verschiedenen Sprachen programmiert (C, Java, Cobol,...)

    Allerdings habe ich es bisher nie so zwingend nötig gehabt laufzeitkritisch zu programmieren...

    Ich habe mich dieses Mal für VB und Visual Studio 2015 entschieden, da es mir damit am einfachsten erscheint, eine saubere GUI zu "bauen".

    Mein Projekt im Visual Studio ist als Visual Basic .NET Framework 4.5.2 als Windows Forms Anwendung angelegt.

    Wenn ich eine Datenanalyse mit einem Startpfad starte, der nicht so "tiefe" Unterverzeichnisse enthält und ebenso nicht unzählige Dateien, dann funktioniert das auch alles schon ganz gut.

    Führe ich das Tool jedoch z.B. auf das gesamte C:\ Laufwerk aus, so dauert es vor allem wegen Ordnern wie C:\windows teilweise ca. eine Stunde. Ich gehe davon aus, dass das hauptsächlich an der Rekursion liegt, da die Aufrufe der extrem vielen Unterverzeichnisse wohl einfach zu viel sind.

    Wie ist das Durchlaufen mit C# denn aufgebaut, um solch eine Performance zu erzielen?

    Gibt es eine Möglichkeit die Rekursion in meinem Code Ausschnitt durch etwas einfacheres, schnelleres zu ersetzen?

    Erstmal hast du ein grundsätzliches Problem: Du nutzt fast nur Features, welche nur aus Kompatibilitätsgründen bzgl. VB6 vorhanden sind. Eigentlich solltest du für diesen Anwendungsbereich die Funktionen aus dem Namespace ​System.IO nutzen - speziell DirectoryInfo und FileInfo. Außerdem solltest du dein Programm in zwei Teile aufteilen: Die Auflistung der Ordner Dateien und Speicherung in einem Baum oder einer Liste & die Auswertung der Dateitypen.
    Was jedoch auch sehr wichtig ist, ist gute Fehlerbehandlung: ​On Error Resume Next - wie du es in deinem Code nutzt - ist nicht sauber. Eigentlich sollte man an allen Stellen wo Fehler auftreten können die erwarteten mit ​Try/Catch fangen und behandeln bzw. ignorieren.
    Ich kann mir auch vorstellen, dass die Auflistung bei Ordnern wie ​C:\Windows so lange dauert, weil ständig Exceptions autreten, da du keine ausreichenden Berechtigungen besitzt.

    Bei meinem Programm mache ich es grob folgendermaßen:
    1. Die rekursive Funktion kriegt einen Ordner (DirectoryInfo) übergeben
    2. Sie erstellt einen Enumerator auf die Dateien im Ordner,
    3. durchgeht den Enumerator Schritt für Schritt und fängt Exceptions bzgl. fehlenden Berechtigungen ab und
    4. fügt die gefundene Datei in die Liste hinzu
    5. Gleiches passiert nun für Ordner,
    6. jedoch wird bei jedem Ordner die Funktion nochmals auf den aktuellen Ordner aufgerufen, wodurch dieser rekursiv durchsucht wird.
    ​All diese Informationen packe ich in eine platzsparende Struktur, welche ungefähr so aussieht:

    VB.NET-Quellcode

    1. ​Public MustInherit Class MappedFileSystemObject
    2. Public Name As String
    3. Public Path As String
    4. End Class
    6. Public Class MappedFile
    7. Inherits MappedFileSystemObject
    8. Public Sub New(fileInfo As FileInfo)
    9. Me.Name = fileInfo.Name
    10. Me.Path = fileInfo.FullName
    11. End Sub
    12. End Class
    14. Public Class MappedFolder
    15. Inherits MappedFileSystemObject
    16. Public Sub New(name As String, path As String)
    17. Me.Name = name
    18. Me.Path = path
    19. Me.FileSystemObjects = New List(Of MappedFileSystemObject)()
    20. End Sub
    22. Public FileSystemObjects As List(Of MappedFileSystemObject)
    23. End Class

    Zuletzt verarbeite ich dann die Daten und speichere sie ab.

    Hoffentlich helfen dir die Ausführungen etwas bei deinem Projekt.

    Grüße
    Stefan :)

    MM215 schrieb:

    als Windows Forms Anwendung angelegt.
    Dann schmeiß allen VB6-Ranz raus.
    Mach zunächst ordentliche Einstellungen, bevor Du weitermachst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich werfe dann mal Directory.GetFiles in die Runde.
    Da gibt's eine schöne Überladung, die sowohl ein SearchPattern als auch SearchOptions:=AllDirectories akzeptiert.
    Und schon sind 80% des ursprünglichen Code in einer einzelnen Zeile untergebracht.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Zunächst nochmals danke für die vielen, sehr guten Anmerkungen und Ideen. Das war schon sehr hilfreich.
    Ich habe aktuell zwei Varianten erstellt und würde gerne die Performance gegeneinander testen.

    Da das Programm im Anschluss an die Datenanalyse einen Kopiervorgang der selektierten Daten ausführen soll und dieser Kopiervorgang aufgrund hoher Datenmengen auch über Nacht möglich sein soll, ist es enorm wichtig das Exception Handling so aufzubauen, dass das Programm trotz auftretenden Exceptions nie eine Userinteraktion benötigt oder gar abbricht.

    Im folgenden Codebeispiel habe ich häufig eine "System.UnauthorizedAccessException".

    Meine Frage ist es nun, wie ich diese am besten behandle, um einen Abbruch zu verhindern und die Überprüfung der nächsten Datei / des nächsten Verzeichnisses einleite.

    Quellcode

    1. ​Sub Main()
    3. Dim di As DirectoryInfo = New DirectoryInfo(quelle)
    4. For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
    5. x = fi.FullName.Length
    6. y = dateiendung(fi.Name)
    7. alter = getalter(fi.LastWriteTime)
    8. flag = False
    9. If alter = False Then
    10. neu = neu + x
    11. Else
    12. alt = alt + x
    13. End If
    15. If alter = True And y = "xlsm" Or y = "xlsx" Or y = "ppt" Or y = "pps" Or y = "ppsx" Or y = "pot" Or y = "pptx" Or y = "potx" Or y = "doc" Or y = "docx" Or y = "docm" Or y = "xls" Or y = "xlsx" Or y = "xlsm" Or y = "csv" Or y = "cal" Or y = "eml" Or y = "emm" Or y = "pdf" Or y = "txt" Or y = "vcf" Or y = "vcs" Then
    16. altoffice = altoffice + x
    17. flag = True
    18. ElseIf alter = False And y = "xlsm" Or y = "xlsx" Or y = "ppt" Or y = "pps" Or y = "ppsx" Or y = "pot" Or y = "pptx" Or y = "potx" Or y = "doc" Or y = "docx" Or y = "docm" Or y = "xls" Or y = "xlsx" Or y = "xlsm" Or y = "csv" Or y = "cal" Or y = "eml" Or y = "emm" Or y = "pdf" Or y = "txt" Or y = "vcf" Or y = "vcs" Then
    19. neuoffice = neuoffice + x
    20. flag = True
    21. End If
    22. If alter = True And y = "aac" Or y = "avi" Or y = "bmp" Or y = "emf" Or y = "gif" Or y = "ico" Or y = "jpeg" Or y = "jpg" Or y = "m4a" Or y = "mp3" Or y = "mp4" Or y = "png" Or y = "wav" Or y = "wma" Or y = "wmf" Or y = "wmv" Then
    23. altmultimedia = altmultimedia + x
    24. flag = True
    25. ElseIf alter = False And y = "aac" Or y = "avi" Or y = "bmp" Or y = "emf" Or y = "gif" Or y = "ico" Or y = "jpeg" Or y = "jpg" Or y = "m4a" Or y = "mp3" Or y = "mp4" Or y = "png" Or y = "wav" Or y = "wma" Or y = "wmf" Or y = "wmv" Then
    26. neumultimedia = neumultimedia + x
    27. flag = True
    28. End If
    29. If alter = True And y = "zip" Or y = "rar" Or y = "7z" Then
    30. altarchiv = altarchiv + x
    31. flag = True
    32. ElseIf alter = False And y = "zip" Or y = "rar" Or y = "7z" Then
    33. neuarchiv = neuarchiv + x
    34. flag = True
    35. End If
    36. If alter = True And flag = False Then
    37. altother = altother + x
    38. ElseIf alter = False And flag = False Then
    39. neuother = neuother + x
    40. End If
    41. Next
    42. End Sub


    Vielen Dank im Voraus.

    Dein Stil ist überaus grauenhaft, man könnte ihn auch "erschreckend furchtbar" nennen.
    Ehe du iwas anneres anfängst, mach erstmal wie Rod gesagt und verlinkt hat, die empfohlenen Einstellungen.
    Dann wird man sich mit Datentypen beschäftigen müssen - offenbar machst du zw. Integer und String überhaupt keinen Unterschied.
    Dann käme man zum Code-Design - deine Methode grabscht zig Variablen aus dem Nirvana ab, statt dass ihr nur genau die Parameter übergeben werden, die sie braucht.
    Dann noch einen vernünftigeren Umgang mit logischen Operatoren, und dann erst würde ich vorschlagen wendet man sich der UnAuthorisizedAccessException zu.
    uff

    MM215 schrieb:

    Ich habe vorher zwar schon einiges in verschiedenen Sprachen programmiert (C, Java, Cobol,...)
    Kann ich mir eigentlich nicht vorstellen, denn da solltest Du automatisch Option Strict On programmieren.
    Und x als Länge und y als Extension zu benennen - brrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Meine Güte...

    Das war doch einfach schnell runtergeschrieben, um die Funktion zu testen.

    Wenn ich das dann richtig umsetze, sieht das natürlich anders aus, aber für einen Entwurf ist das doch völlig Banane...

    Ich wollte da jetzt auch kein Feedback zu einem Entwurfsstil oder sonstiges, sondern hatte die konkrete Frage, wie man in einer for each Schleife sinnvoll Dateien bzw. Ornder überspringen kann, wenn keine Zugriffsrechte vorhanden sind.

    MM215 schrieb:

    Ich wollte da jetzt auch kein Feedback zu einem Entwurfsstil oder sonstiges, sondern hatte die konkrete Frage, wie man in einer for each Schleife sinnvoll Dateien bzw. Ornder überspringen kann, wenn keine Zugriffsrechte vorhanden sind.
    Kann man konkret schlecht beantworten, wenn kein (brauchbarer) Code vorliegt.

    Also Antwort generell: Dann musste in einem TryCatch die UnauthorisizedAccessException catchen und übergehen.

    Aber ist dir mit dieser Antwort geholfen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Snaptu schrieb:

    mal abgesehen davon gibt fi.Name() nicht nur die File-Extension zurück d.h. deine If-Abfrage funktioniert so garnicht.
    Nutze msdn.microsoft.com/en-us/libra…textension(v=vs.110).aspx
    Was steht eigentlich in getalter()?


    fi.Name() gibt natürlich nicht nur die File-Extension zurück. Daher dateiendung(fi.Name). Dort habe ich eine kleine function geschrieben, die mir dann die Extension von fi.Name zurückgibt.

    getalter ist eine function, die überprüft, wie lange es zurückliegt, dass die Datei das letzte mal geändert wurde und einen Boolean setzt, um zurückzugeben, ob die letzte Änderung länger als zwei Jahre zurückliegt oder nicht.

    für die Dateiendung brauchst du auch ne eigene Function? ;) naja wurscht aber willst du uns ernsthaft verklickern das du mit dem Gurken-Code da nur rumprobierst?
    Schreibst du dann das ganze nachher ein 2. mal neu oder wie? kauf ich dir ned ab. ein Konzept wies aussehen soll hättest dir auch auf nen Zettel schreiben können und dann abarbeiten.
    Wie wärs mit 1x schreiben dafür vernünftig? Alles was du brauchst steht in den Beiträgen hier im Thread. Ja und die Dateiendungen würd ich in ner Liste halten den so wie dus jetzt machst müsstest du bei ner Änderung in jeder
    Abfrage rumfummeln.

    EDIT: Sub Main () sieht nach ner Konsolenanwendung aus?
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    ErfinderDesRades schrieb:

    MM215 schrieb:

    Ich wollte da jetzt auch kein Feedback zu einem Entwurfsstil oder sonstiges, sondern hatte die konkrete Frage, wie man in einer for each Schleife sinnvoll Dateien bzw. Ornder überspringen kann, wenn keine Zugriffsrechte vorhanden sind.
    Kann man konkret schlecht beantworten, wenn kein (brauchbarer) Code vorliegt.

    Also Antwort generell: Dann musste in einem TryCatch die UnauthorisizedAccessException catchen und übergehen.

    Aber ist dir mit dieser Antwort geholfen?




    Naja es geht um diese Schleife

    Quellcode

    1. ​For Each fi In di.GetFiles("*", SearchOption.AllDirectories)

    MM215 schrieb:

    Feedback zu einem Entwurfsstil oder sonstiges
    kriegst Du bei uns kostenlos mit. ;)
    Sieh Dir mal dies an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Dim listOffice As List(Of String) = New List(Of String) From {"xlsm", "xlsx", "ppt", "pps", "ppsx", "pot", "pptx", "potx", "doc", "docx", "docm", "xls", "xlsx", "xlsm", "csv", "cal", "eml", "emm", "pdf", "txt", "vcf", "vcs"}
    5. Dim listmultimedia As List(Of String) = New List(Of String) From {"aac", "avi", "bmp", "emf", "gif", "ico", "jpeg", "jpg", "m4a", "mp3", "mp4", "png", "wav", "wma", "wmf", "wmv"}
    6. Dim listarchiv As List(Of String) = New List(Of String) From {"zip", "rar", "7z"}
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. Dim quelle = "c:\Temp"
    10. Dim di As DirectoryInfo = New DirectoryInfo(quelle)
    11. Dim neu As Long = 0
    12. Dim alt As Long = 0
    13. Dim altoffice As Long = 0
    14. Dim neuoffice As Long = 0
    15. Dim altmultimedia As Long = 0
    16. Dim neumultimedia As Long = 0
    17. Dim altarchiv As Long = 0
    18. Dim neuarchiv As Long = 0
    19. Dim altother As Long = 0
    20. Dim neuother As Long = 0
    22. For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
    23. Dim x = fi.FullName.Length
    24. 'y = dateiendung(fi.Name)
    25. Dim y = fi.Extension.ToLower.Substring(1)
    26. 'alter = getalter(fi.LastWriteTime)
    27. Dim alter = fi.LastWriteTime < New DateTime(2015, 3, 1)
    28. Dim flag = False
    30. If alter Then
    31. alt += x
    32. Else
    33. neu += x
    34. End If
    36. If listOffice.Contains(y) Then
    37. If alter Then
    38. altoffice += x
    39. Else
    40. neuoffice += x
    41. End If
    42. flag = True
    43. ElseIf listmultimedia.Contains(y) Then
    44. If alter Then
    45. altmultimedia += x
    46. Else
    47. neumultimedia += x
    48. End If
    49. flag = True
    50. ElseIf listarchiv.Contains(y) Then
    51. If alter Then
    52. altarchiv += x
    53. Else
    54. neuarchiv += x
    55. End If
    56. flag = True
    57. End If
    59. If Not flag Then
    60. If alter Then
    61. altother = altother + x
    62. Else
    63. neuother = neuother + x
    64. End If
    65. End If
    66. Next
    67. End Sub
    69. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Snaptu schrieb:

    für die Dateiendung brauchst du auch ne eigene Function? ;) naja wurscht aber willst du uns ernsthaft verklickern das du mit dem Gurken-Code da nur rumprobierst?
    Schreibst du dann das ganze nachher ein 2. mal neu oder wie? kauf ich dir ned ab. ein Konzept wies aussehen soll hättest dir auch auf nen Zettel schreiben können und dann abarbeiten.
    Wie wärs mit 1x schreiben dafür vernünftig? Alles was du brauchst steht in den Beiträgen hier im Thread. Ja und die Dateiendungen würd ich in ner Liste halten den so wie dus jetzt machst müsstest du bei ner Änderung in jeder
    Abfrage rumfummeln.

    EDIT: Sub Main () sieht nach ner Konsolenanwendung aus?




    Ich weiß immer noch nicht, wo das Problem ist. Ich hatte vorher eben noch nicht mit VB gearbeitet und auch nicht versucht Windows Verzeichnisstrukturen zu durchlaufen. Daher wollte ich einfach mal ein Verständnis dafür bekommen, wie dass so funktioniert und wie schnell das auf welche Art und Weise von statten geht. Das kann ich doch so alles viel besser ansehen und probieren, als auf Papier.

    Beim Probieren entsteht dann ja automatisch mein Konzept, weil ich dabei merke, was, wie gut funktioniert und mir entsprechend welche Vorteile/Möglichkeiten bringt.

    Und mit dem Wissen ist es dann für mich viel einfacher, dass sauber umzusetzen und JA ich schreibe dann den Code noch ein 2. mal von vorne unter Berücksichtigung aller gewonnenen Erkenntnisse während des Probierens.

Facebook