Skip to content

Deleting temp files

Viewing 8 posts - 1 through 8 (of 8 total)
  • Author
    Posts
  • November 14, 2005 at 9:34 pm #189204
    DarkCoder
    Member

    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

    November 15, 2005 at 3:26 am #189211
    Admin
    Administrator

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

    November 15, 2005 at 3:49 am #189210
    rattled_Cage
    Member

    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

    November 15, 2005 at 3:35 pm #189209
    Admin
    Administrator

    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

    November 15, 2005 at 9:04 pm #189208
    Admin
    Administrator

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

    November 16, 2005 at 4:36 am #189207
    DarkCoder
    Member

    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.

    November 16, 2005 at 6:26 am #189206
    rattled_Cage
    Member

    Private Sub Command1_Click()
    On Error Resume Next
    Kill (“c:test*.*”)
    Kill (“C:testtest1*.*”)
    Kill (“C:testTest2*.*”)
    Kill (“C:testtest3*.*”)
    End Sub

    😯 deletes files inside and leaves the folders alone

    make all the test folders and watch them go 🙂

    November 16, 2005 at 9:53 am #189205
    Admin
    Administrator

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

  • Author
    Posts

Related

Viewing 8 posts - 1 through 8 (of 8 total)
  • You must be logged in to reply to this topic.