Re: Ordner rekursive durchsuchen. Bei Zugriffsfehler Skript fortsezten, wie

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance


"Stefan Kahlert" <skahlert@xxxxxxxxxxxxxx> wrote in message
news:O5N1aX2fIHA.2004@xxxxxxxxxxxxxxxxxxxxxxx
schnipp.....


Leider nein
es geht eigentlich darum das ich an sehr vielen Worddokumente die
Dokumenteneigenschaften ändern muss.
Handel sich um ca 700.000 Dateien in unzähligen Ordnern.
siehe Posting vom 3.3.08 Kompilierungsfehler bei Verwendung von "on
erro goto irgendwas"


Weshalb sollte dies nicht gehen? Die obengenannte Befehlszeile
wird dir sehr rasch eine Datei mit 700'000 Dateien geben, samt
Ordnernamen, welche Du dann einen nach dem andern behandeln
kannst. Du brauchst sie bloss einzulesen.

Wenn ich Zeit hätte, könnte ich ein rekursives Program schreiben,
welches das gleiche wie "dir /s /b" erreicht, aber erstens bin ich
gerade ein bisschen knapp an Zeit und zweites zögere ich immer,
das Rad neu zu erfinden.

Falls ich auf eine Ordner keine Zugriff habe zeigt mir der DIR Befehl den
Inhalt des Ordners auch nicht an.
Mir geht es mehr darum zu Erfahren auf welche Ordner kein Zugriff besteht.
Bsp.
\temp vollzugriff
1 vollzugrif
2 vollzugriff
3 Kein Zugriff
4 vollzugriff
5 vollzugriff

Das Obige Skript bricht am Unterordner 3 ab. Ich möchte nun das das Skript
den Pafd des gespeerten Ordners protokolliert und
einfach an Ordner 4 fortsetzt.

Falls es nicht geht muss ich mein Skrip halt jedesmals neu starte und
sehen wo es stehen bleibt. Hoffe nur es sind nicht allzuviele Ordner
welche gespeert sind.

Mfg

Stefan Kahlert

Wenn Dein Skript auf einen Ordner keinen Zugriff hat, kannst
Du dies mit VB Script leicht erfassen, z.B. so:

on error resume next
Set objFolder = objFSO.GetFolder(Subfolder.Path)
on error goto 0
if err > 0
logfile.writeline "Ordner " & Subfolder.Path & " ist gesperrt."
logfile.writeline err.Description
else
Set colFiles = objFolder.Files
For Each objFile in colFiles
logfile.writeline "Datei" &objFSO.GetAbsolutePathName(objfile)
Next
end if


.

Relevant Pages