Hvordan sletter jeg alle filer i en given mappe

Private Sub Command1_Click()
    DeleteTree \"c:\\temp\"
End Sub

Private Sub DeleteTree(strPath As String)
  Shell \"DelTree /Y \" & strPath
End Sub

BEMÆRK: Denne funktion sletter også det bibliotek, som er startbiblioteket for funktionen, så det kan være du skal oprette dette igen...

kill \"C:\\temp\\Temporary Internet Files\\*.*\"

Er vel det du skal

Var det ikke lidt powerfull.. Jeg havde tænkt på Kill (\"C:\\temp\\TemporaryTemporary Internet Files\\\")

Men jeg får fejl, nok fordi det er mellemrum i mappenavnet

skwat jeg havde ikke læst dit svar men som jeg skriver får jeg fejl

Kill medtager ikke underbiblioteker !!

Nej det er jeg med på men jeg har kun brug får som står i min title Hvordan sletter jeg alle filer i en given mappe

Hvis du lægger mærke til Skwat\'s svar, så har han *.* til sidst... Har du prøvet med det??

Og er du sikker på at stien er rigtig??

Jeg har prøvet med *.*  problemet er når det er mellemrum i mappenavnet.. I kan prøve selv..


Kill (\"C:\\temp\\*.*\")  \' virker fint
Kill (\"C:\\temp\\a a\\*.*\")  \' virker ikke
Fejl meddelesen er > Run time error \'53\':
File not found

Jeg forhøjer lig poing talet til 100,, Det må være en der kænder til problemet..

Private Sub Command1_Click()
  ChDir \"C:\\temp\\Temporary Internet Files\"
  Kill \"*.*\"
End Sub

DETTE VIRKER !!! (I hvert fald på min maskine)

Nåh hvad skal jeg sige.. Det virker ikke på min,,
Jeg kører på Win2000Pro med NT partiotion hvis det har noget at sige

Først skal du vælge referencen: \"Microsoft Scripting Runtime\" i Project, References

Private FSO As scripting.FileSystemObject
Dim fN, f1N, fcN As Object

Set FSO = New scripting.FileSystemObject
Set fN = FSO.GetFolder(\"C:\\temp\\Temporary Internet Files\\ \")
Set fcN = fN.Files
For Each f1N In fcN
    FSO.DeleteFile \"C:\\temp\\Temporary Internet Files\\ \" & \"*.*\"
Next
Set fN = Nothing
Set f1N = Nothing
Set fcN = Nothing
Set FSO = Nothing

peter.erikse  jeg fik fejl i
FSO.DeleteFile \"C:\\temp\\Temporary Internet Files\\ \" & \"*.*\"

men lige så prøvede jeg med
FSO.DeleteFile \"C:\\temp\\Temporary Internet Files\\ \" & \"*.*\"

Så kører det...

arrrg,,, Med det her
FSO.DeleteFile \"C:\\temp\\Temporary Internet Files\\\" & \"*.*\"

brug dosnavne

kill \"C:\\temp\\Tempor~1\\*.*\"
Der er ikke nogen grunmd til at gøre det så besværligt