Hallo Liebe VBCer,
ich Bräuchte drigend eure Hilfe.
Ich bin in der Ausbildung Tätig und soll mein Ausbilder erklären was das nun Folgende Script an jeder einzelnen Stelle macht und was die Befehle in Groben heißen. Ein Bissel habe ich davon schon Komentiert und ich würde euchh wirklich gerne bitten mir zu Helfen und mit kommentaren am script mir die einzelnen Befehle Grob zu erläutern. Z.b was mach und Heißt for each folder etc....
Ich bedanke mich für eure Mithilfe.
Mit Freundlichen Grüßen
staivbh
Verschoben aus "Datenbankprogrammierung". VB-Tags eingefügt. ~Thunderbolt
ich Bräuchte drigend eure Hilfe.
Ich bin in der Ausbildung Tätig und soll mein Ausbilder erklären was das nun Folgende Script an jeder einzelnen Stelle macht und was die Befehle in Groben heißen. Ein Bissel habe ich davon schon Komentiert und ich würde euchh wirklich gerne bitten mir zu Helfen und mit kommentaren am script mir die einzelnen Befehle Grob zu erläutern. Z.b was mach und Heißt for each folder etc....
Visual Basic-Quellcode
- 'Pfad vergabe.....
- strRootFolder = "C:\Users\Test win7 32bit\Desktop\Inetpub\"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set ofolder = fso.GetFolder(strRootFolder)
- 'Durchlaufe alle Unterverzeichnisse
- for each folder in ofolder.subfolders
- KillFolderSub folder
- next
- Sub KillfolderSub(objFolder)
- 'Durchlaufe alle Unterverzeichnisse
- for each subfolder in objfolder.subfolders
- KillFolderSub subfolder
- next
- 'Wenn Ordner vor mehr als 80 Tagen erstellt wurde...
- if objFolder.datecreated < (Date - 80) then
- 'Alle Dateien im Ordner löschen
- for each file in objfolder.Files
- fso.DeleteFile(file.Path)
- next
- 'Ordner löschen.....
- fso.DeleteFolder(objFolder.Path)
- end if
- End Sub
Ich bedanke mich für eure Mithilfe.
Mit Freundlichen Grüßen
staivbh
Verschoben aus "Datenbankprogrammierung". VB-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()