Lista Arquivos Log !

[wcvibezone 0]

Alguém pode Listar os "Arquivos de Log" do PB que devem ser "Deletados" para ser Criado um Anti Log ?

 

Obriagdo !

['Darkswamp 98]

Quando é feito um Limpador de Logs é usado essa base;

 

On Error Resume Next

Dim objFSO, strFolder

strFolder = "C:\pointblank"

objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(strFolder) Then

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\ongame\Pointblank\BC.txt")

Else

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\Pointblank\BC.log")

End If

 

Mais agora os limpadores de logs, estão com outro sistema mais eficaz. Esse funciona, mais não é 100% seguro;

Tem alguns outros sistemas do windows que também é bom dar uma limpada.

[wcvibezone 0]

Quando é feito um Limpador de Logs é usado essa base;

 

 

 

Mais agora os limpadores de logs, estão com outro sistema mais eficaz. Esse funciona, mais não é 100% seguro;

Tem alguns outros sistemas do windows que também é bom dar uma limpada.

 

Apenas .Txt e .Log ? Tem mais alguma Extensão ou Pasta fora isso ?

 

Obrigado.

['Darkswamp 98]

Apenas .Txt e .Log ? Tem mais alguma Extensão ou Pasta fora isso ?

 

Se você colocar outro arquivo, ou pasta para o limpador de logs remover, o Point Blank vai ficar verificando toda hora e isso é ruin.

O txt e o log remove apenas aquilo que fica registrado ao abrir algum programa junto com o PB. Ae que entra as opções de limpar prefetch e etc.

[l3xt3r 0]

faz tempo q n vejo

 

[RazerTeam 1]

On Error Resume Next

Dim objFSO, strFolder

strFolder = "C:\pointblank"

objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(strFolder) Then

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\ongame\Pointblank\BC.txt")

Else

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\Pointblank\BC.log")

End If

[MerçaAsPalavras 1]

On Error Resume Next

Dim objFSO, strFolder

strFolder = "C:\pointblank"

objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(strFolder) Then

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\ongame\Pointblank\BC.txt")

Else

Dim fso

fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile("C:\Pointblank\BC.log")

End If