Removing Multiple Files

[SuperFlyChetGuy]

This is what I have put together to remove cache from the MMORPG game EvE Online.

expandcollapse popup

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img\*.jpg") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img\*.jpg")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Browser Images" & @CRLF & "No file exists, moving on", 1)
EndIf

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Blueprints\*.dds") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Blueprints\*.dds")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Blueprint Images" & @CRLF & "No file exists, moving on", 1)
EndIf

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Gids\*.dds") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Gids\*.dds")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Gid Images" & @CRLF & "No file exists, moving on", 1)
EndIf

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Portraits\*.jpg") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Portraits\*.jpg")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Portraits" & @CRLF & "No file exists, moving on", 1)
EndIf

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Temp\Mapbrowser\*.png") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Temp\Mapbrowser\*.png")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Mapbrowser Images" & @CRLF & "No file exists, moving on", 1)
EndIf

If FileExists(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Temp\Mapbrowser\*.blue") Then
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Pictures\Temp\Mapbrowser\*.blue")
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Mapbroswer Blue Files" & @CRLF & "No file exists, moving on", 1)
EndIf

The problem is, it doesn't delete any of the files. I'm suspicious the asterisk is the problem but I'm not sure. Can someone point me in the right direction?

[weaponx]

I don't think you can use a wildcard in FileExists.

Instead use _FileListToArray like this:

#include <File.au3>
$array = _FileListToArray ( @UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img", "*.jpg",1  )
If $array[0] = 0 Then 
MsgBox(0,"","No jpg found")
Else
MsgBox(0,"",$array[0] & " jpg found")
EndIf

Edited August 22, 2007 by weaponx

[ChrisL]

This should do what you want

$search = FileFindFirstFile(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img\*.jpg")
    If $search = -1 Then 
         MsgBox(4096, "EvE Cache Cleaner", "Browser Images" & @CRLF & "No file exists, moving on", 1)
     Else
        FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img\*.jpg")
        MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
    EndIf
FileClose($search)

Edit: Changed it for a part of your code so it's easier for you to see

Edited August 22, 2007 by ChrisL

[MrCreatoR]

I don't think you can use a wildcard in FileExists.

Yes he can, just checked with FileExists(@SystemDir & "\*.*") and it returns 1.

The problem is, it doesn't delete any of the files

Are you sure that the paths is correct? and the messages showing what? that files are deleted?

[MrCreatoR]

But why to check FileExists? you can just check if it was deleted:

$FilesIsDeleted = FileDelete(@UserProfileDir & "\Local Settings\Application Data\CCP\EVE\cache\Browser\Img\*.jpg")
If $FilesIsDeleted Then
    MsgBox(4096, "EvE Cache Cleaner", "Files Removed", 1)
Else
    MsgBox(4096, "EvE Cache Cleaner", "Browser Images" & @CRLF & "No file exists, moving on", 1)
EndIf

[ChrisL]

Yes he can, just checked with FileExists(@SystemDir & "\*.*") and it returns 1.

In Which case the OP wont need to use the FileFindFirstFile() method.

I thought the same as weaponx but your right I tried it with @desktopdir & "\*.jpg"

[weaponx]

Yes he can, just checked with FileExists(@SystemDir & "\*.*") and it returns 1.

Are you sure that the paths is correct? and the messages showing what? that files are deleted?

It's not documented in the help file. I never tried it though.

[SuperFlyChetGuy]

Thank you for the help! I believe that is going to work for me.

Thanks again!