bigsero
Oct 19, 2010
view3922
view5
0
Goto Top

Folder Unterfolder löschen

GermanQuestionVB for ApplicationsDevelopment

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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 153346

Url: https://administrator.de/contentid/153346

Printed on: April 25, 2024 at 21:04 o'clock

5 Comments
Latest comment
Goto Top
Member: em-pie
em-pie Oct 19, 2010 at 09:29:45 (UTC)
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
Member: bigsero
bigsero Oct 19, 2010 at 11:07:32 (UTC)
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)
Member: bastla
bastla Oct 19, 2010 at 11:15:19 (UTC)
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
Member: bigsero
bigsero Oct 19, 2010 at 11:22:36 (UTC)
Goto Top
Merci vielmal

nur,
Ich bekomme einen Fehler

runtime error
Object required: 'objFileSystem'

Warum?
Member: bastla
bastla Oct 19, 2010 at 11:25:29 (UTC)
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
GermanQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 Comments