can someone give the me the starting point of a ca file cleaner?

i thought it was

If My.Computer.FileExists("file name") = True Then
Kill("file name")

but i get an error... anyone help?

Originally Posted by *******

i thought it was

If My.Computer.FileExists("file name") = True Then
Kill("file name")

but i get an error... anyone help?

Code:

Dim BFD as new FolderBrowserDialog
BFD.ShowDialog()
Dim CAPath as String = BFD.FolderPath.ToString 'Something like that
Kill(CAPath & "*.TMP")

Code:

Dim OFD as New OpenFileDialog
OFD.ShowDialog()
Dim CAFolder as String = OFD.FileName.ToString
Kill(CAFolder & "*.TMP")

Originally Posted by ac1d_buRn

Code:

Dim OFD as New OpenFileDialog
OFD.ShowDialog()
Dim CAFolder as String = OFD.FileName.ToString
Kill(CAFolder & "*.TMP")

Thats not guna work. That will prompt for a OpenFILEDialog, not a FOLDER.

can some1 just give me a tutorial or source code for ca cleaner?

just do this ~

its the easiest way

Code:

 
 On Error Resume Next  ' or you can do On Error GoTo 1 

        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe", System.IO.FileAttributes.Normal) 'ahnrpt from read only to normal
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal) 'changes ending banner from read only to normal

        Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
     
        Kill("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe")

1:  MsgBox "Error: " & Err.Description

Originally Posted by XGelite

just do this ~

its the easiest way

Code:

 
 On Error Resume Next  ' or you can do On Error GoTo 1 

        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe", System.IO.FileAttributes.Normal) 'ahnrpt from read only to normal
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal) 'changes ending banner from read only to normal

        Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
     
        Kill("C:\Nexon\Combat Arms\HShield\Ahnrpt.exe")

1:  MsgBox "Error: " & Err.Description

Will not work if you have combat arms in another directory

Originally Posted by Zoom

Will not work if you have combat arms in another directory

then just change the file paths ( duh! )

Originally Posted by XGelite

then just change the file paths ( duh! )

True........

To kill all textfile use: Kill("*.TXT")

can someone give the me the starting point of a ca file cleaner?

Similar Threads

Tags for this Thread