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
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon birgitte vom 16.10.2019, 17:16 Options
Temporary Internet Files loschen
Hallo,
im o.g. Verzeichnis gibt es 4 Unterverzeichnisse mit kryptischen Bezeichnungen; darin enthalten sind Dateien die während einer oder mehreren Internetsitzungen empfangen wurden.
In den Internetoptionen ist eine Schaltfläche zum Entfernen dieser Dateien vorgesehen.
Ich will diese Dateien aber mittels vb-Scriptdatei beim Herunterfahren des Systems löschen.
Mit folgendem Scriptbeispiel funktioniert das auch, allerdings wird die versteckte Datei "desktop.ini" ebenfalls gelöscht.
Was hätte es für Auswirkungen wenn diese Datei gelöscht würde?
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\..\..\\")
Set oFiles = oFolder.Files
For Each oFile In oFiles
oFSO.DeleteFile(oFile.Path)
Next
Set oFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
Hat jemand eine Idee wie vorstehender Programmcode erweitert werden kann damit "desktop.ini" vom Löschvorgang ausgeschlossen wird?
mfg
Reiner
im o.g. Verzeichnis gibt es 4 Unterverzeichnisse mit kryptischen Bezeichnungen; darin enthalten sind Dateien die während einer oder mehreren Internetsitzungen empfangen wurden.
In den Internetoptionen ist eine Schaltfläche zum Entfernen dieser Dateien vorgesehen.
Ich will diese Dateien aber mittels vb-Scriptdatei beim Herunterfahren des Systems löschen.
Mit folgendem Scriptbeispiel funktioniert das auch, allerdings wird die versteckte Datei "desktop.ini" ebenfalls gelöscht.
Was hätte es für Auswirkungen wenn diese Datei gelöscht würde?
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\..\..\\")
Set oFiles = oFolder.Files
For Each oFile In oFiles
oFSO.DeleteFile(oFile.Path)
Next
Set oFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
Hat jemand eine Idee wie vorstehender Programmcode erweitert werden kann damit "desktop.ini" vom Löschvorgang ausgeschlossen wird?
mfg
Reiner
Antwort 1 von kicia vom 17.10.2019, 08:06 Options
hallo birgitte,
Gruß,
k.
...
For Each oFile In oFiles
if not oFile.Name = "desktop.ini" then
oFSO.DeleteFile(oFile.Path)
end if
Next
...Gruß,
k.
Antwort 2 von sandar vom 17.10.2019, 09:24 Options
vorsichtshalber:
if not LCase(oFile.Name) = "desktop.ini" thenAntwort 3 von Arno_Nym vom 17.10.2019, 09:31 Options
Zitat:
Was hätte es für Auswirkungen wenn diese Datei gelöscht würde?
Was hätte es für Auswirkungen wenn diese Datei gelöscht würde?
Keine. Diese Datei wird beim nächsten Systemstart/Anmelden automatisch neu erstellt.
Arno
Antwort 4 von birgitte vom 17.10.2019, 16:17 Options
liebe Leute,
eure Tipps waren allesamt sehr hilfreich für mich; an dieser Stelle möchte ich aber noch einen Nachtrag einfügen:
Im beschriebenen Fall ist der Dateiname bekannt, wie müsste jedoch der Programmcode abgeändert werden wenn mehrere versteckte -nicht namentlich bekannte- Dateien vom Löschvorgang ausgeschlossen werden?
mfg
Reiner
eure Tipps waren allesamt sehr hilfreich für mich; an dieser Stelle möchte ich aber noch einen Nachtrag einfügen:
Im beschriebenen Fall ist der Dateiname bekannt, wie müsste jedoch der Programmcode abgeändert werden wenn mehrere versteckte -nicht namentlich bekannte- Dateien vom Löschvorgang ausgeschlossen werden?
mfg
Reiner
Antwort 5 von kicia vom 17.10.2019, 16:49 Options
Hallo,
folgendes gilt für Javascript, aber ich glaube, die eigenschaften sind in VBS die selben:
Javascript auszug:
Für Dich würde das bedeuten:
Wobei gilt:[
code]// attributes:
// 0 Normal Normal file. No attributes are set.
// 1 ReadOnly Read-only file. Attribute is read/write.
// 2 Hidden Hidden file. Attribute is read/write.
// 4 System System file. Attribute is read/write.
// 8 Volume Disk drive volume label. Attribute is read-only.
// 16 Directory Folder or directory. Attribute is read-only.
// 32 Archive File has changed since last backup. Attribute is read/write.
// 1024 Alias Link or shortcut. Attribute is read-only.
// 2048 Compressed Compressed file. Attribute is read-only.[/code]
Siehe:
http://msdn2.microsoft.com/en-us/library/t0aew7h6.aspx
http://msdn2.microsoft.com/en-us/library/5tx15443.aspx
folgendes gilt für Javascript, aber ich glaube, die eigenschaften sind in VBS die selben:
Javascript auszug:
...
if ( file.attributes != 0 && file.attributes != 32 )
{
msg("[savefile] kann auf Datei nicht zugreifen ---><b>" + FileName + "</b> (att:" + file.attributes + ")");
return false;
}
...Für Dich würde das bedeuten:
...
if not oFile.attributes = 2 then
...Wobei gilt:[
code]// attributes:
// 0 Normal Normal file. No attributes are set.
// 1 ReadOnly Read-only file. Attribute is read/write.
// 2 Hidden Hidden file. Attribute is read/write.
// 4 System System file. Attribute is read/write.
// 8 Volume Disk drive volume label. Attribute is read-only.
// 16 Directory Folder or directory. Attribute is read-only.
// 32 Archive File has changed since last backup. Attribute is read/write.
// 1024 Alias Link or shortcut. Attribute is read-only.
// 2048 Compressed Compressed file. Attribute is read-only.[/code]
Siehe:
http://msdn2.microsoft.com/en-us/library/t0aew7h6.aspx
http://msdn2.microsoft.com/en-us/library/5tx15443.aspx
Antwort 6 von sandar vom 17.10.2019, 16:52 Options
kommt drauf an, was du unter versteckt verstehst.
die dateien ausnehmen, die das dateisystemattribut "versteckt" besitzen:
die dateien ausnehmen, die das dateisystemattribut "system" besitzen:
oder die dateien ausnehmen, die im explorer standardmässig ausgeblendet werden (alle versteckten und alle systemdateien):
die dateien ausnehmen, die das dateisystemattribut "versteckt" besitzen:
IF (oFile.Attributes AND 2)=0 THEN
oFSO.DeleteFile(oFile.Path)
END IF
die dateien ausnehmen, die das dateisystemattribut "system" besitzen:
IF (oFile.Attributes AND 4)=0 THEN
oFSO.DeleteFile(oFile.Path)
END IF
oder die dateien ausnehmen, die im explorer standardmässig ausgeblendet werden (alle versteckten und alle systemdateien):
IF (oFile.Attributes AND 4)+(oFile.Attributes AND 2)=0 THEN
oFSO.DeleteFile(oFile.Path)
END IF
Antwort 7 von sandar vom 17.10.2019, 16:55 Options
Zitat:
folgendes gilt für Javascript, aber ich glaube, die eigenschaften sind in VBS die selben:
folgendes gilt für Javascript, aber ich glaube, die eigenschaften sind in VBS die selben:
ja, es ist ja weder jscript, noch vbscript, sondern das filesystemobject.
Antwort 8 von sandar vom 17.10.2019, 17:05 Options
Für Dich würde das bedeuten:
...
if not oFile.attributes = 2 then
...das stimmt leider nicht. die attributwerte werden ja aufaddiert. dh. eine versteckte datei hat meist noch mehr eigenschaften, als nur versteckt. zb. versteckt und archiv = 2 + 32 =34
Antwort 9 von birgitte vom 17.10.2019, 19:55 Options
liebe Leute, vielen Dank für eure weiteren guten Tipps
mfg
reiner
mfg
reiner
Ähnliche Themen
Fehler beseitigen...aber wie ?
Commander_Hawk 27.01.2007 - 216 Hits - 1 Antwort
Temporary Internet Files löschen
Rasful 18.03.2007 - 316 Hits - 19 Antworten
pfad zu temporary internet files ändern
NYM 13.05.2007 - 175 Hits - 1 Antwort
Temp Internet files wiederherstellen?
forum 19.12.2007 - 374 Hits - 5 Antworten
Tempory Internet Files
Filesearch 11.04.2008 - 89 Hits - 7 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
