Datei/Ordneranalyse

  • VB.NET

Es gibt 42 Antworten in diesem Thema. Der letzte Beitrag () ist von TimoS.

    Datei/Ordneranalyse

    Hallo,

    ich habe folgenden Code, welcher Dateien in einem bestimmten Ordner und dessen Unterordnern listet:

    VB.NET-Quellcode

    1. Function getallfiles(spath As String) As List(Of String)
    2. Try
    3. If spath.EndsWith("\") And spath.Length > 3 Then
    4. spath = spath.Substring(0, spath.Length - 1)
    5. print("\ removed")
    6. End If
    7. Dim oDir As New System.IO.DirectoryInfo(spath)
    9. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
    11. Dim oFile As System.IO.FileInfo
    12. Dim d As New List(Of String)
    13. d.Clear()
    16. For Each oFile In oFiles
    17. d.Add(oFile.FullName)
    18. files += 1
    19. fls.Invoke(Sub()
    20. fls.Text = "Dateien: " + files.ToString
    21. fls.Update()
    22. End Sub)
    23. stat.Invoke(Sub()
    24. stat.Text = oFile.FullName
    25. stat.Update()
    26. End Sub)
    27. Next
    28. Return d
    29. Catch ex As Exception
    30. print(ex.Message)
    31. err.Invoke(Sub()
    32. errors += 1
    33. err.Text = "Fehler: " + errors.ToString
    34. err.Update()
    35. End Sub)
    36. End Try
    38. End Function
    40. Function getallfolders(spath As String) As List(Of String)
    41. Try
    42. If spath.EndsWith("\") And spath.Length > 3 Then
    43. spath = spath.Substring(0, spath.Length - 1)
    44. print("\ removed")
    45. End If
    46. Dim oDir As New System.IO.DirectoryInfo(spath)
    47. Dim oFiles As System.IO.DirectoryInfo() = oDir.GetDirectories()
    48. Dim oFile As System.IO.DirectoryInfo
    51. For Each oFile In oFiles
    52. l.Add(oFile.FullName)
    53. folders += 1
    54. fld.Invoke(Sub()
    55. fld.Text = "Ordner: " + folders.ToString
    56. fld.Update()
    57. End Sub)
    58. stat.Invoke(Sub()
    59. stat.Text = oFile.FullName
    60. stat.Update()
    61. End Sub)
    63. getallfolders(oFile.FullName)
    64. Next
    65. Return l
    66. Catch ex As Exception
    67. print(ex.Message)
    68. err.Invoke(Sub()
    69. errors += 1
    70. err.Text = "Fehler: " + errors.ToString
    71. err.Update()
    72. End Sub)
    73. End Try
    75. End Function


    Diese Funktionen werden mit

    VB.NET-Quellcode

    1. Function getAllSubfolders(spath As String) As List(Of String)
    2. l.Clear()
    3. errors = 0
    4. files = 0
    5. folders = 0
    6. Dim flist As New List(Of String)
    8. Dim t = Task.Factory.StartNew(Sub()
    10. For Each i As String In getallfolders(spath)
    11. For Each it As String In getallfiles(i)
    12. flist.Add(it)
    13. Next
    14. Next
    16. print(vbNewLine + "Errors: " + errors.ToString)
    17. End Sub)
    19. Return flist
    20. End Function
    23. Sub print(text As String)
    24. cons.Invoke(Sub()
    25. cons.AppendText(vbNewLine + text)
    26. cons.SelectionStart = cons.TextLength
    27. cons.SelectionLength = 0
    28. cons.ScrollToCaret()
    29. End Sub)
    30. End Sub



    angesteuert.

    Wenn ich meinen Dokumente-Ordner durchsuchen lasse, sagt das Programm, dass es keinen Zugriff auf Eigene Bilder hat.

    Kann mir jemand helfen?
    Ja, ja... Ich mach ja schon...

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

    Probier mal dies aus:

    VB.NET-Quellcode

    1. Dim listFiles() = New IO.DirectoryInfo("c:\Temp").GetFiles("*.txt", IO.SearchOption.AllDirectories)
    2. Dim listFolder() = New IO.DirectoryInfo("c:\Temp").GetDirectories("*.*", IO.SearchOption.AllDirectories)
    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!

    TimoS schrieb:

    Wenn ich meinen Dokumente-Ordner durchsuchen lasse, sagt das Programm, dass es keinen Zugriff auf Eigene Bilder hat.

    Ja dann ist es halt so. Da hilft nur die Exception zu catchen:

    VB.NET-Quellcode

    1. Try
    2. ..
    3. Catch ex As UnauthorizedAccessException
    4. 'Datei ist ReadOnly
    5. 'Pfad zeigt auf einen Ordner
    6. 'Erforderliche Rechte fehlen
    7. Catch ex As System.Security.SecurityException
    8. 'Erforderliche Rechte fehlen
    9. End Try
    /nicht getestet

    @RodFromGermany: Danke für die schnelle Antwort, ich probiers gleich mal aus!

    Ich habe mit System.IO noch nicht sehr viel gearbeitet.
    Heißt IO.SearchOption.AllDirectories, dass er alle Unterordner einbezieht?

    @rotherford: Ich habe die Ordnersuche sowie auch die Dateisuche in ein

    VB.NET-Quellcode

    1. Try
    2. 'Ordnersuche / Dateisuche
    3. Catch As Exception
    4. msgbox(ex.message
    5. End Try

    reingetan. Bei der Ordnersuche kommt auch die Msgbox und sagt, dass er kein Zugriff hat, aber bei der Dateisuche bricht die Ausführung ab und in Visual Studio sagt er bei

    VB.NET-Quellcode

    1. For Each it As String In getallfiles(i)
    2. flist.Add(it)
    3. Next

    "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt"
    Ja, ja... Ich mach ja schon...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TimoS“ ()

    Ja, das durchläuft die komplette Verzeichnisstruktur.
    Gucke mal: [VB.NET] System.IO Namespace richtig nutzen

    Du hast keine Instanz erstellt. i ist mehrmals vorhanden! Das heißt du suchst nach i in ner For Each-Schleife, weil es mehrmals da ist... Dann kannst du natürlich nicht i in eine neue Schleife mit einbeziehen, da keine Instanz festgelegt ist.
    Also kein genaues Objekt. Mach da also noch Exit For auf jeden Fall rein und werte zuerst alle Objekte für i aus.

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

    Ja wenn die Exception geworfen wird musst natürlich zum nächsten Item springen:

    VB.NET-Quellcode

    1. for each x in y
    3. Try
    6. Catch ex ..
    7. Continue For
    8. Catch ex2 ..
    9. Continue For
    10. ''evtl. Fehler loggen
    11. Finally
    12. ..
    14. End Try
    15. Next
    /nicht getestet

Facebook
Telefonspende