Vider le cache internet de tous les utilisateurs d'un serveur

Commenter

Contenu du snippet

Vider le cache internet de tous les utilisateurs d'un serveur

Source / Exemple : 


Module modMain
    Private Const csDir As String = "Temporary Internet Files"

    Sub Main()
        Try
            sbDeleteCache()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteCache()
        Try
            Dim D As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
            D = IO.Path.GetPathRoot(D)
            sbDeleteCache(D)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteCache(ByVal Rep As String)
        Try
            Dim D As IO.DirectoryInfo
            D = New IO.DirectoryInfo(Rep)
            Dim dD() As IO.DirectoryInfo = D.GetDirectories
            Dim sD As IO.DirectoryInfo
            For Each sD In dD
                If sD.Name.StartsWith(csDir) Then
                    sbDeleteDir(sD)
                Else
                    sbDeleteCache(sD.FullName)
                End If
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteDir(ByVal D As IO.DirectoryInfo)
        Try
            Dim F As IO.FileInfo() = D.GetFiles
            Dim sF As IO.FileInfo
            For Each sF In F
                Try
                    Console.WriteLine(sF.FullName)
                    IO.File.SetAttributes(sF.FullName, IO.FileAttributes.Normal)
                    sF.Delete()
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try
            Next
            Dim dD As IO.DirectoryInfo()
            dD = D.GetDirectories
            Dim sD As IO.DirectoryInfo
            For Each sD In dD
                Console.WriteLine(sD.FullName)
                sD.Delete(True)
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_eldim)