Temporary Internet Files

jeg tror ikke at du kan slette et ikketomt bib. -desuden er der vist diverse sære atributter på TIF

Kill bruges til at slette filerne med FØR du sletter selve mappen.
Mappen slettes med RmDir, og SKAL være tømt først.

Kan jeg se et kode eksempel på en mulig løsning !

I stedet for at slette hele mappen og oprette den igen, kan du nøjes med bare at slette filerne i mappen. Sådan:

Private Sub Form_Load()

  Kill \"C:\\windows\\Temporary Internet Files\\*.*\"
 
  End

End Sub

Kill \"C:\\windows\\Temporary Internet Files\\*.*\"

Virker ikke som det skal.....

Alt i mappen skal være væk....total tom

Det må skyldes, at i hvert fald nogle af filerne i mappen er skrivebeskyttede. Du er derfor nødt til først at ophæve skrivebeskyttelsen på alle filer i mappen. Prøv med denne kode:

Private Sub Form_Load()

  Dim fs, f, f1, fc
  Set fs = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fs.GetFolder(\"C:\\windows\\Temporary Internet Files\")
  Set fc = f.Files
  For Each f1 In fc
    f1.Attributes = 0
  Next

  Kill \"C:\\windows\\Temporary Internet Files\\*.*\"
 
  End

End Sub

God kode irp .. den skal du nok få point for men

80 point hvis du kan vise hvordan man opretter/Sletter en system mappen

System-mappe? Det må du lige forklare...

Temporary Internet Files er en system mappe

Hvis man ser egenskaberne på mappen kan man se at der er hak i system

Ok, så er jeg med! Først skal mappen oprettes på almindelig vis. Bagefter sættes system-attributten på mappen. Det gøres således:

Sub OpretSystemmappe()

  MkDir \"C:\\Testmappe\"
 
  Dim fs, f, r
  Set fs = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fs.GetFolder(fs.GetFolder(\"C:\\Testmappe\"))
  f.Attributes = 4

End Sub

Når systemmappen skal slettes, sker det i den omvendte rækkefølge: Først fjernes system-attributten på mappen, og derefter kan den slettes på almindelig vis (dette eksempel forudsætter at mappen allerede ER tømt, jf. kodeeksemplet fra i formiddag):

Sub OpretSystemmappe()
 
  Dim fs, f, r
  Set fs = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fs.GetFolder(fs.GetFolder(\"C:\\Testmappe\"))
  f.Attributes = 0

  RmDir \"C:\\Testmappe\"

End Sub

Hov, det nederste kodeeksempel skulle selvfølgelig hedder \"SletSystemmappe\" eller noget lignende...

Du er knip skarp Irp

100 point for godt svar...

ups...kniv skarp

Takker... både for de pæne ord og for points\'ene.