slette filer i temp i flere mapper

Har det noget med [Visual Basic] at gøre ?

Vil lave et prg. som sletter alle temp/InternetTempFiles under alle brugerkonti på en gang. Så man ikke manualt skal slette dem under alle konti der findes på px'en.

Slet alle filer/mapper i følgende mapper (IKKE hele mappen, KUN alle filer/mapper i mappen)

C:\Windows\Temp\
C:\Documents and Settings\<Din bruger>\Lokale indstillinger\Temp\
C:\Documents and Settings\<Alle andre brugere>\Lokale indstillinger\Temp\
C:\Documents and Settings\<Din bruger>\Lokale indstillinger\Temporary Internet Files\
C:\Documents and Settings\<Alle andre brugere>\Lokale indstillinger\Temporary Internet Files\

ja, men hvis man ikke kender navnene på de enkelte konti. Hvad gør man så ? (Prg. skal gerne kunne gøres på forskellige pc'er.)

http://www.eksperten.dk/spm/573432

ser spændende ud.. tjekker det lige i morgen.. Takker indtil videre....

Bemærk: Programmet skal have administrativ adgang til alle andres "Lokale Indstilninger"...

Hmmm... den nævnte i http://www.eksperten.dk/spm/573432 tar' jo kun sine egne temp filer/mapper ...

Men at kende/finde ALLE profilnavne under C:\Documents and Settings\???\
Hmmm... Tænke... Resten imorgen...

noget i den stil..

'---------------------------------- Form1 ----------------------------------
Option Explicit

Private Sub Form_Load()
Dim strName As String
Dim strProfile As String

  strProfile = Environ$("ALLUSERSPROFILE")
  If Len(strProfile) Then
    strProfile = Mid$(strProfile, 1, InStrRev(strProfile, "\"))
  End If

  strName = Dir(strProfile, vbDirectory Or vbHidden Or vbSystem)
  Do While strName <> ""
    If strName <> "." And strName <> ".." Then
      If (GetAttr(strProfile & strName) And vbDirectory) = vbDirectory Then
        ' Tilføjer fuld path..
        List1.AddItem CStr(strProfile & strName)
      End If
    End If
    strName = Dir
  Loop

End Sub
'---------------------------------- Form1 ----------------------------------

Hejsa,

Jamen det ser jo fint ud. Jeg har prøvet leget lidt videre, og ændret til
List1.AddItem CStr(strProfile & strName & "\Lokale indstillinger\Temp")
List2.AddItem CStr(strProfile & strName & "\Lokale indstillinger\Temporary Internet Files")
og lavet en command-knap med = Kill List1.Text & "\*.*"
Hvor jeg så marker en linie i list1 og sletter biblioteket.
Men kan man evt. lave checkboxe udfor de enkelte biblioteker der listes op, så man kan slette flere "profiles/temp" på en gang ?
vh thjoe

sjh
Smid gerne et svar, så vil min yderligere spørgsmål blive oprettet senere..
Nu er jeg kommet igang.
Mange tak.

okæææ

<fqthjoe>: Det slutlige reslutat ka' du jo smide herind - evt. med lidt kommentar hist og pist...
Hvis andre skulle komme ind i denne tråd...

<fqthjoe>: Hvordan gåer det ?

majsmarken...
Har ikke fået kigget på det, men regner med indenfor en uges tid. Har været på landevejene det meste af måneden..og så har der ikke været så meget energi om aftenen til at sidde foran computeren... familien skal jo også passes ;-)