Folder Unterfolder löschen
Hallo zusammen
Ich habe ein kleines Problem
Folgender Code möchte ich ausfüren. Die Variable %username% nicht vergessen
Es sollen alle Dateien und Subfolder mit Dateien gelöscht werden
TempDel = "\\nvacest066\userredir$\%username%\Application Data\Sun\Java\Deployment\cache\*"
If (objFileSystem.FolderExists(TempDel)) Then
objFileSystem.DeleteFolder(TempDel)
End if
Ich habe ein kleines Problem
Folgender Code möchte ich ausfüren. Die Variable %username% nicht vergessen
Es sollen alle Dateien und Subfolder mit Dateien gelöscht werden
TempDel = "\\nvacest066\userredir$\%username%\Application Data\Sun\Java\Deployment\cache\*"
If (objFileSystem.FolderExists(TempDel)) Then
objFileSystem.DeleteFolder(TempDel)
End if
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 153346
Url: https://administrator.de/forum/folder-unterfolder-loeschen-153346.html
Ausgedruckt am: 23.12.2024 um 05:12 Uhr
5 Kommentare
Neuester Kommentar
Hallo bigsero!
Wenn der Ordner selbst erhalten bleiben soll, etwa so:
Alternativ könntest Du den Username auch so einbauen:
... und ja, löschen kannst Du auch mit
Grüße
bastla
Wenn der Ordner selbst erhalten bleiben soll, etwa so:
Set objShell = WScript.CreateObject("WScript.Shell")
TempDel = "\\nvacest066\userredir$\" & objShell.ExpandEnvironmentStrings("%username%") & "\Application Data\Sun\Java\Deployment\cache"
If objFileSystem.FolderExists(TempDel) Then
Set TheDir = objFileSystem.GetObject(TempDel)
For Each File In TheDir.Files
File.Delete
Next
For Each SubFolder In TheDir.SubFolders
SubFolder.Delete
Next
End If
Set objNetwork = WScript.CreateObject("WScript.Network")
TempDel = "\\nvacest066\userredir$\" & objNetwork.UserName & "\Application Data\Sun\Java\Deployment\cache"
objFileSystem.DeleteFile(TempDel & "\*", True)
objFileSystem.DeleteFolder(TempDel & "\*", True)
bastla
Hallo bigsero!
erzeugt (was ich aufgrund Deines oben geposteten Codes aber als bereits erledigt vorausgesetzt habe) ...
Grüße
bastla
Object required: 'objFileSystem'
... sollte eigentlich selbsterklärend sein - Du hast das entsprechende Objekt noch nicht mitSet objFileSystem = CreateObject("Scripting.FileSystemObject")
Grüße
bastla