bigsero
Goto Top

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

Content-ID: 153346

Url: https://administrator.de/forum/folder-unterfolder-loeschen-153346.html

Ausgedruckt am: 23.12.2024 um 05:12 Uhr

em-pie
em-pie 19.10.2010 um 11:29:45 Uhr
Goto Top
Moin,

Blöd dass meine geheiligte Glaskugel gerade in Reperatur ist ;)

Was genau ist dein Problem?
löscht er dir nichts, formatiert er dir deine Server?

Springt die Kaffemaschine an?

Gruß
meistro
bigsero
bigsero 19.10.2010 um 13:07:32 Uhr
Goto Top
face-smile LOL

Ich möchte den kompletten Inhalt (Files und Folder) des Ordners löschen.

"\\nvacest066\userredir$\%username%\Application Data\Sun\Java\Deployment\cache\*"

Aber es passiert nichts............... Auch kein Kaffee.. (ist Schade)
bastla
bastla 19.10.2010 um 13:15:19 Uhr
Goto Top
Hallo bigsero!

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
Alternativ könntest Du den Username auch so einbauen:
Set objNetwork = WScript.CreateObject("WScript.Network")  
TempDel = "\\nvacest066\userredir$\" & objNetwork.UserName & "\Application Data\Sun\Java\Deployment\cache"  
... und ja, löschen kannst Du auch mit
objFileSystem.DeleteFile(TempDel & "\*", True)  
objFileSystem.DeleteFolder(TempDel & "\*", True)  
Grüße
bastla
bigsero
bigsero 19.10.2010 um 13:22:36 Uhr
Goto Top
Merci vielmal

nur,
Ich bekomme einen Fehler

runtime error
Object required: 'objFileSystem'

Warum?
bastla
bastla 19.10.2010 um 13:25:29 Uhr
Goto Top
Hallo bigsero!
Object required: 'objFileSystem'
... sollte eigentlich selbsterklärend sein - Du hast das entsprechende Objekt noch nicht mit
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
erzeugt (was ich aufgrund Deines oben geposteten Codes aber als bereits erledigt vorausgesetzt habe) ...

Grüße
bastla