Rekursive Benachrichrigungsanzeige bei Ordnern

Hallo frank



Ich helfe Ihnen gerne weiter!



Sie haben die Möglichkeit, nur ungelesene Nachrichten anzuzeigen.



Bitte überprüfen Sie diesen Artikel





Wenn der Artikel keineHilfe war, können die Änderungen, die Sie nicht
vornehmen können, an Uservoice zurückgemeldet oder über das Feedback anderer Benutzer zum gleichen Thema abgestimmt werden. Je mehr Stimmen ein Beitrag erhält, desto wahrscheinlicher ist es, dass Entwickler auf den Vorfall aufmerksam werden. Ich schlage daher
vor, dass Sie Ihren Feedback-Link hier entlang des Threads teilen, damit Mitglieder der Community darüber abstimmen können.



Bei weiteren Fragen sind wir gerne für Sie da!

Mit freundlichen Grüßen,

Viki

Hallo Viki,

danke für die Antwort.

Jedoch suche ich eine Möglichkeit, wie ich mir in einem übergeordneten Ordner anzeigen lassen kann, wie viele ungelesene E-Mails er und seine Unterordner enthalten.

Mit freundlichen Grüßen,

Frank

ich versuche mit einem Makro alle Dateien und Ordner ab einem Vorgegebenen

Punkt zu schützen (Schreibschutz aktivieren).

Bsp: vorgegebener Pfad: C:\testordner\

Habt ihr vieleicht eine Idee was ich falsch mache oder gar einen besseren Lösungsansatz ?

Du könntest auch hier alle Ordner und Unterordner rekursiv durchlaufen und dabei das ReadOnly-Flag setzen. Etwa so:

Peter

Option Explicit

Public Sub DateienUndOrdnerSchuetzen()

setWriteProtection CreateObject("Scripting.FileSystemObject").GetFolder("C:\testordner")

End Sub

Sub setWriteProtection(ordner As Variant)

Dim file As Variant

Dim subordner As Variant

On Error Resume Next

For Each file In ordner.Files

file.Attributes = file.Attributes Or 1

Next

For Each subordner In ordner.Subfolders

subordner.Attributes = subordner.Attributes Or 1

setWriteProtection subordner

Next

End Sub

Kannst du mir vllt mal erklären was " rekursiv durchlaufen" heißt? rätsel da jedes mal drüber ^^

Dein Coding funktioniert mal wieder einwandfrei^^

danke dafür

___________________________________________ "Even if the morrow is barren of promisses Nothing shall forestall my return to become the dew that quenches the land to spare the sands, the seas, the skies I offer thee this silent sacrifice" LOVELESS

Yami_Galileo schrieb am 31.05.2010 12:58 Uhr:

Kannst du mir vllt mal erklären was " rekursiv durchlaufen" heißt? rätsel da jedes mal drüber ^^

Am besten einfach mal googeln. Das Beispiel auf Wikipedia ist meiner Meinung nach ausnahmsweise nicht geeignet. Zu technisch.

Auch sehr interessant: das Haupt-Programm mit <F8> starten und step-by-step nachvollziehen was passiert.

Dein Coding funktioniert mal wieder einwandfrei^^

danke dafür

Sehr gern. Danke für das Feedback.

Peter