Temporary Internet Files

أنا آسف جداً !!!

لكن الضغط جعلني أتسرع في إدراج الموضوع !!!

علي كل حال سأرفق الفكرة لعل وعسي تكون أفادة للجميع !!!

Private Sub Command1_Click()
    Dim strPath1 As String
    Dim strPath2 As String
    
    strPath1 = Trim("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\")
    strPath2 = Trim("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\")
    
    SetAttr strPath1, vbNormal
    SetAttr strPath2, vbNormal
    
    Call KillTemps(strPath2)
    
    SetAttr strPath1, vbSystem + vbArchive + vbHidden
    SetAttr strPath2, vbSystem + vbArchive + vbHidden
End Sub

Public Sub KillTemps(vPath As String)
    Dim strDir As String
    
    strDir = Dir(vPath & "*.*", vbHidden + vbSystem + vbArchive + vbReadOnly)
    
    While strDir <> ""
        Call SetAttr(vPath & strDir, vbNormal)
        Kill vPath & strDir
        strDir = Dir
    Wend
End Sub