Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
Fragevon birgitte vom 20.01.2020, 11:32 Options
Dateien mit Schreibschutz im "Temp"-Ordner löschen
Hallo Leute,
mit folgendem VB-Script soll der Temp-Ordner beim Systemstart gelöscht werden. Das funktioniert auch, zumindest bei allen Dateien ohne Schreibschutzattribut.
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
'löscht alle Ordner
oFSO.deletefolder "d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp\*"
'löscht alle Dateien
Set oFolder = oFSO.GetFolder("d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp")
Set oFiles = oFolder.Files
For Each oFile In oFiles
oFSO.DeleteFile(oFile.Path)
Next
Set oFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
Wie müsste der Programmcode erweitert werden damit sämtliche Dateien (mit oder ohne Schreibschutz) ohne Rückfrage gelöscht werden?
mfg
reiner
mit folgendem VB-Script soll der Temp-Ordner beim Systemstart gelöscht werden. Das funktioniert auch, zumindest bei allen Dateien ohne Schreibschutzattribut.
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
'löscht alle Ordner
oFSO.deletefolder "d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp\*"
'löscht alle Dateien
Set oFolder = oFSO.GetFolder("d:\Dokumente und Einstellungen\RB\Lokale Einstellungen\Temp")
Set oFiles = oFolder.Files
For Each oFile In oFiles
oFSO.DeleteFile(oFile.Path)
Next
Set oFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
Wie müsste der Programmcode erweitert werden damit sämtliche Dateien (mit oder ohne Schreibschutz) ohne Rückfrage gelöscht werden?
mfg
reiner
Antwort 1 von birgitte vom 20.01.2020, 11:54 Options
..ich glaube ich habe bereits selbst eine funktionierende Lösung gefunden, indem ich die Zeile:
in die For..Next-Schleife einfüge.
mfg
reiner
oFile.Attributes = oFile.Attributes And Not 1in die For..Next-Schleife einfüge.
For Each oFile In oFiles
oFile.Attributes = oFile.Attributes And Not 1
oFSO.DeleteFile(oFile.Path)
Nextmfg
reiner
Ähnliche Themen
Windows Home / Ordner Schreibschutz entfernen
heijei 19.02.2007 - 317 Hits - 1 Antwort
Nicht schreibgeschützte Ordner
xtroardonary 18.04.2007 - 97 Hits -
wie kann ich unter xp datei-schreibschutz entfernen ?
nero345 04.07.2007 - 349 Hits -
"Darf" man temporäre Daten löschen?
humpelstielzchen 27.08.2007 - 192 Hits - 10 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
