Guten Abend allerseits.
Ich habe mir heute im Laufe des Tages unter anderem eine Prozedur geschrieben, die es ermöglicht die Anzahl aller Dateien eines gewünschten Ordners inklusive aller Dateien der jeweiligen Unterordner zu ermitteln.
Nun habe ich das Problem, dass teilweise auch Ordner durchsucht werden sollen, die sich außerhalb meiner Zugriffsrechte befinden (bin Admin an diesem Rechner, jedoch glaube ich zu wissen, dass die ClickOnce Anwendungen immer mit niedrigeren Rechten gestartet werden).
Nun wäre es natürlich toll, wenn man die Rechte der Andendung weiter erhöhen könnte, um auch an die anderen Ordner (Bsp: C:\Programme) ranzukommen, oder aber die Suche fortsetzen könnte.
Der Veranschaulichkeit halber poste ich an dieser Stelle einfach mal die Prozedur mit Highlighting, wie gfoidl es wünscht.
[highlight=vbnet]
Private Sub AllFolders(ByVal Pfad As String)
Dim Folders() As String = System.IO.Directory.GetDirectories(Pfad)
Dim Files() As String = System.IO.Directory.GetFiles(Pfad)
Dim Folder As String
Dim File As String
For Each File In Files
Anzahl += 1
Next
If Folders.Length <> 0 Then
For Each Folder In Folders
Try
AllFolders(Folder)
Catch ex As UnauthorizedAccessException
MsgBox("Sie besitzen nicht genügend Rechte um auf " & Folder & " zuzugreifen.")
End Try
Next
End If
End Sub
[/highlight]
Wäre schön, wenn jemand einen Rat hätte.
Mfg Myst
PS: Die Prozedur wird von einem anderen Thread ausgeführt. Irgendwie erweist sich die Fehlersuche dabei äußerst schwierig, da immer nur auf den Thread verwiesen wird, anstelle des konkreten Fehlerproblems. Kann man da vlt. auch etwas dran drehen?
Ich habe mir heute im Laufe des Tages unter anderem eine Prozedur geschrieben, die es ermöglicht die Anzahl aller Dateien eines gewünschten Ordners inklusive aller Dateien der jeweiligen Unterordner zu ermitteln.
Nun habe ich das Problem, dass teilweise auch Ordner durchsucht werden sollen, die sich außerhalb meiner Zugriffsrechte befinden (bin Admin an diesem Rechner, jedoch glaube ich zu wissen, dass die ClickOnce Anwendungen immer mit niedrigeren Rechten gestartet werden).
Nun wäre es natürlich toll, wenn man die Rechte der Andendung weiter erhöhen könnte, um auch an die anderen Ordner (Bsp: C:\Programme) ranzukommen, oder aber die Suche fortsetzen könnte.
Der Veranschaulichkeit halber poste ich an dieser Stelle einfach mal die Prozedur mit Highlighting, wie gfoidl es wünscht.
[highlight=vbnet]
Private Sub AllFolders(ByVal Pfad As String)
Dim Folders() As String = System.IO.Directory.GetDirectories(Pfad)
Dim Files() As String = System.IO.Directory.GetFiles(Pfad)
Dim Folder As String
Dim File As String
For Each File In Files
Anzahl += 1
Next
If Folders.Length <> 0 Then
For Each Folder In Folders
Try
AllFolders(Folder)
Catch ex As UnauthorizedAccessException
MsgBox("Sie besitzen nicht genügend Rechte um auf " & Folder & " zuzugreifen.")
End Try
Next
End If
End Sub
[/highlight]
Wäre schön, wenn jemand einen Rat hätte.
Mfg Myst
PS: Die Prozedur wird von einem anderen Thread ausgeführt. Irgendwie erweist sich die Fehlersuche dabei äußerst schwierig, da immer nur auf den Thread verwiesen wird, anstelle des konkreten Fehlerproblems. Kann man da vlt. auch etwas dran drehen?
Comment