vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Dateisuche - SearchAllSubDirectories 
Autor: Hänk
Datum: 22.12.21 20:33

Servus Leute,

ich möchte ein Laufwerk durchsuchen mit der Befehlszeile

For Each oFile As String In My.Computer.FileSystem.GetFiles(LW, FileIO.SearchOption.SearchAllSubDirectories, oExtender.ToArray)
Next

LW wäre z.B. "W:\"

Diese Zeile bleibt jedoch am "Mülleimer" hängen

System.UnauthorizedAccessException: "Der Zugriff auf den Pfad "W:\$RECYCLE.BIN\S-1-5-21-4147782217-3940814952-1619368571-1001" wurde verweigert."

Wie kann ich die Suche abfangen, das dieser Fehler im Einzeiler nicht auftritt?

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Dateisuche - SearchAllSubDirectories 
Autor: Manfred X
Datum: 23.12.21 10:47

Hallo!

Schau mal hier:
https://www.vbarchiv.net/forum/read.php?f=10&t=76877&i=76880
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Dateisuche - SearchAllSubDirectories 
Autor: Hänk
Datum: 25.12.21 09:36

Danke für die Antwort.
So etwas in der Art habe ich schon in Benutzung.
Ich wollte gerne den Einzeiler.
Hier läßt sich aber wahrscheinlich der "Fehler" nicht umgehen?

Noch ein frohes Fest.

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Dateisuche - SearchAllSubDirectories 
Autor: effeff
Datum: 11.01.22 10:55

Den Einzeiler kannst Du hier nicht nutzen. Du musst eben rekursiv arbeiten und den Zugriffsfehler abfangen:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        ListFiles("C:\")
 
    End Sub
 
    Private Sub ListFiles(ByVal sDir As String)
        Try
            For Each fil As String In System.IO.Directory.GetFiles(sDir)
 
                ListBox1.Items.Add(fil)
 
            Next
        Catch ex As Exception
 
        End Try
 
        Try
            For Each ssDir As String In System.IO.Directory.GetDirectories(sDir)
 
                ListFiles(ssDir)
 
            Next
        Catch ex As Exception
 
        End Try
 
    End Sub
 
End Class

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Dateisuche - SearchAllSubDirectories 
Autor: Hänk
Datum: 11.01.22 17:17

danke für deine Antwort.

Das mit dem Einzeiler dachte ich mir schon dass da nichts mehr geht.

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 [email protected] Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel