Spezielles Dateivergleichsskript

[Thomas N.]

Ich benötige ein Tool/Skript, das folgendes kann:

1. Durchsuchen aller Unterordner eines anzugebnenen Pfades
2. Dateivergleich NUR INNERHALB eines jeden (Unter-)Ordners
3. Vergleich von Dateien mit der Endung .do und .doc untereinander
4a. ist .do aktueller, dann die .doc Datei löschen (und optimal anschließend .do in .doc umbenennen)
4b. ist .doc aktueller, dann .do löschen

Wer kann mir da helfen?
Bitte, bitte, bitte....

[Cybquest]

Kpl. fertige Scripte in diese Richtung kann ich dir leider nicht liefern.
Aber hier mal für den Anfang ein wenig Code zum selber weiterbasteln.
Durchläuft ab einem Startverzeichnis rekursiv alle Unterverzeichnisse...

strRootFolder = Inputbox("Bitte Startverzeichnis eingeben:")
if Trim(strRootFolder) <> "" then
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set folder = fso.GetFolder(strRootFolder)

  TestFolderSub folder

  MsgBox "Fertig"
End if

Sub TestfolderSub(objFolder)

for each subfolder in objfolder.subfolders
  TestFolderSub subfolder
next

  for each file in objfolder.Files
    'hier könnte jetzt entspr. mit den Dateien weiter gearbeitet werden
    'Z.B. mit file.datelastmodified das letzte Bearbeitungsdatum ermitteln...
  next

End Sub