VB Script - Dateien mit .doc löschen

casian

Grünschnabel
hallo zusammen

Ich möchte in einem bestimmten Ordner alle .doch Dateien löschen. Falls es dann keine Dateien in diesen Ordner gibt sollte das Script auch keine Fehlermeldung bringen. Ich habe etwas versucht aber es scheint nicht zu funktionieren:


Code:
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Users\Chriz\Desktop\test")
Set oDateien = oFSO.FileExists ("*.doc")

If oFSO.fileexists(oDateien) Then
	
	oFSO.DeleteFile	

Else
	WScript.quit
End If

Kann mir jemand helfen?

Vielen dank
 

Yaslaw

alter Rempler
Moderator
Was soll in deinem Script oFSO löschen? Welche Datei?
Wozu hast du oFolder?

Ich würde es in etwa so versuchen
Visual Basic:
    Set oFso = WScript.CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder("C:\")
    
    For Each oFile In oFolder.Files
        If oFile.Name Like "*.doc" Then oFile.Delete
    Next oFile
 

casian

Grünschnabel
Es sollten alle *.doc Dateien in einem Verzeichniss gelöscht werden.
zum Beispiel im Verzeichniss C:\test .
Falls es noch andere Dateien in diesem Verzeichniss gibt sollten diese nicht gelöscht werden.
 

Neue Beiträge