hey does anyone have a code to delete history/cookies/temp internet files... i've been trying to write one, but it keeps deleting part of the files and not all of them.. lmfao

I found a graet code ib planet source I will get it for you by tomorrow

ive used this delete a few times
but be carefull

hence the test folder !




Sub Command1_Click()
Dim TempDir As String
TempDir = "C:\TEST"
Nuke TempDir
End Sub

C:\TEST MAKE THIS dont make mistakes



Sub Nuke(DirName As String)
Const ATTR_NORMAL = 0
Const ATTR_DIRECTORY = 16

Dim OriginalDir, FileName, NextFileName As String

OriginalDir = CurDir$
ChDir DirName
FileName = Dir$("*.*", ATTR_NORMAL)
Do While FileName <> ""
Kill FileName
FileName = Dir$
Loop

Do
FileName = Dir$("*.*", ATTR_DIRECTORY)
While FileName = "." Or FileName = ".."
FileName = Dir$
Wend

If FileName = "" Then Exit Do
Nuke (FileName)
Loop

ChDir OriginalDir
RmDir DirName <<<<<< removes the folder ! if u like
End Sub

Tha looks good, but the code i use for my ban remover works great lol I just cant find where I find it, lol damn I keep on checking

hmmm dont see the point of deleting theses if for paltalk that is paltalk does put anything in there.

hm.. the above is a good code to delete the "files" within the folder. However, if there is another folder inside the "main" folder, then the code will probally crash and get a runtime error or something like that.

Private Sub Command1_Click()
On Error Resume Next
Kill ("c:\test\*.*")
Kill ("C:\test\test1\*.*")
Kill ("C:\test\Test2\*.*")
Kill ("C:\test\test3\*.*")
End Sub


deletes files inside and leaves the folders alone

make all the test folders and watch them go

na dont work.... you still have the index.dat that stops it from being deleted.