Hallo Zusammen,
Nun habe ich noch ein weiteres kleines Problem. Ich denke, das dürfte für euch kein Problem darstellen. Aber ich komme absolut nicht mehr weiter.
Es geht darum die Dateien eines Ordner nach Besitzern zu analysieren und sämtliche Dateien des ermittelten Besitzers zu löschen.
Beispielsweise enthält ein Ordner mit 100 Dateien 10 Dateien des Besitzers MaxMustermann in der Domäne contoso.com.
Diese 10 Dateien möchte ich löschen und die anderen Dateien sollen unberührt bleiben.
Bisher habe ich folgenden Code geschrieben:
Das Problem hierbei ist, dass das Script mir sämtliche Dateien löscht. Auch die, die dem angegebenen Benutzer gar nicht gehören.
Im Prinzip löscht er also sämtliche Dateien in dem Ordner, obwohl nur eine Datei dem angegeben Anwender gehört.
Kann mir wer helfen?
Viele Grüße
p41n
Nun habe ich noch ein weiteres kleines Problem. Ich denke, das dürfte für euch kein Problem darstellen. Aber ich komme absolut nicht mehr weiter.
Es geht darum die Dateien eines Ordner nach Besitzern zu analysieren und sämtliche Dateien des ermittelten Besitzers zu löschen.
Beispielsweise enthält ein Ordner mit 100 Dateien 10 Dateien des Besitzers MaxMustermann in der Domäne contoso.com.
Diese 10 Dateien möchte ich löschen und die anderen Dateien sollen unberührt bleiben.
Bisher habe ich folgenden Code geschrieben:
Visual Basic-Quellcode
- DIM objDatei
- strOrdner = "D:\Test\"
- set shell = CreateObject("Shell.Application")
- ' auf Papierkorb zugreifen
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set objOrdner = FSO.GetFolder(strOrdner)
- set folder = shell.NameSpace(strOrdner)
- set folderitems = folder.items
- fmtid = "{9B174B34-40FF-11D2-A27E-00C04FC30871}"
- intZahl = 0
- If folderitems.Count > 0 then
- For Each folderitem in folderitems
- besitzer = (folderitem.ExtendedProperty(fmtid & ",4"))
- For Each objDatei in objOrdner.Files
- If besitzer = "MusterPC\musterma" Then
- objDatei.Delete
- list = list & folderitem.name & _
- ": Besitzer ist " & besitzer & vbCr
- intZahl = intZahl + 1
- End If
- Next
- Next
- End If
- If intZahl = "0" Then
- MsgBox "Es wurden keine Dateien gelöscht"
- Else
- MsgBox "Es wurden " & intZahl & " Dateien gelöscht" & vbCrLf _
- & "Gelöscht wurden:" & vbCrLf & list, vbInformation
- End If
Das Problem hierbei ist, dass das Script mir sämtliche Dateien löscht. Auch die, die dem angegebenen Benutzer gar nicht gehören.
Im Prinzip löscht er also sämtliche Dateien in dem Ordner, obwohl nur eine Datei dem angegeben Anwender gehört.
Kann mir wer helfen?
Viele Grüße
p41n