Deleting Temp Files from User Profile

[xeshan]

Hello Gurus!

I wanted to ask how to specify the user's profile when trying to delete files in a directory.

For example:

FileDelete ("C:\Documents and Settings\userid\Local Settings\Temporary Internet Files\*.*")

What I'm trying to figure out is how to replace the 'userid' with the specific username that is logged in.

Thank you so much in advance!

[kaotkbliss]

@TempDir - Path to the temporary files folder.

[Yashied]

@UserProfileDir ?

Or

#Include <WinAPIEx.au3>

FileDelete(_WinAPI_ShellGetSpecialFolderPath($CSIDL_INTERNET_CACHE) & '\*.*')

WinAPIEx.au3

Edited June 17, 2010 by Yashied

[GEOSoft]

FileChangeDir(@UserProfileDir & "\Local Settings\Temporary Internet Files\")
$sSearch = FileFindFirstFile("*.*")
If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

[Yashied]

FileChangeDir(@UserProfileDir & "\Local Settings\Temporary Internet Files\")
$sSearch = FileFindFirstFile("*.*")
If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

But why? FileDelete() supports wldcards.

[GEOSoft]

But why? FileDelete() supports wldcards.

I'm aware of that but I've also had issues doing it that way.

@Yashied

I was in a hurry and didn't have time to give you details in the answer.

In a folder like the internet cache there can easily be a file that can not be deleted. When you use wildcards, the first file that won't delete causes the call to error out so it doesn't move onto the next file. If that happens with the File*Find() method it will just continue the loop and move onto the next file.

Edited June 17, 2010 by GEOSoft

[GEOSoft]

;FileChangeDir(@UserProfileDir & "\Local Settings\Temporary Internet Files\")
FileChangeDir(RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache"))
$sSearch = FileFindFirstFile("*.*")
If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

Edit: I changed the FileChangeDir() line to get the path info from the registry instead.

[xeshan]

Thank you so much Gurus!! I used:

FileChangeDir(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache"))
$sSearch = FileFindFirstFile("*.*")
If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

Is there a way that FileDelete can also delete the folders in the Temp folder as well?

Thank you so much!!

[Mat]

Thank you so much Gurus!! I used:

FileChangeDir(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache"))
$sSearch = FileFindFirstFile("*.*")
If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

Is there a way that FileDelete can also delete the folders in the Temp folder as well?

Thank you so much!!

Use just "*" rather than "*.*" in the FileFindFirstFile call.

[GEOSoft]

If $sSearch <> -1 Then
    While 1
        $sFile = FileFindNextFile($sSearch)
        If @Error Then ExitLoop
        If StringInStr(FileGetAttrib($sFile), "d") Then
            DirRemove($sFile)
            ContinueLoop
        EndIf
        FileDelete($sFile)
    WEnd
EndIf
FileClose($sSearch)

[Trong]

Delete all files/folders inside it:

$iReturn =  _FindDelAll(@TempDir)
;~ $iReturn =  _FindDelAll("C:\Temp", 1)
If $iReturn = 1 Then
   ConsoleWrite(" Success! " & @CRLF)
ElseIf $iReturn = 0 Then
   ConsoleWrite(" Error! " & @CRLF)
Else
   ConsoleWrite(" The path is not valid! " & @CRLF)
EndIf

expandcollapse popup

Func _FindDelAll($zSearchDir, $zRemoveSearchDir = 0)
; /*********************************************************************** *
; * ---:| Function : _FindDelAll
; * ---:| Author   : Anonimajn 
; ************************************************************************ *
    Local $zRSD = Number($zRemoveSearchDir)
    If Not FileExists($zSearchDir) Or Not StringInStr(FileGetAttrib($zSearchDir), "D") Then
        Return Number(-1)
    Else
        If $zRSD <> 1 Then
            If StringRight($zSearchDir, 1) <> "\" Then $zSearchDir &= "\"
            Dim $xSearch, $sFile
            $xSearch = FileFindFirstFile($zSearchDir & "*")
            If $xSearch <> -1 Then
                While 1
                    $sFile = FileFindNextFile($xSearch)
                    If @error Then ExitLoop
                    If StringInStr(FileGetAttrib($zSearchDir & $sFile), "D") Then
                        _RemoveDir($zSearchDir & $sFile)
                    Else
                        _DelFile($zSearchDir & $sFile)
                    EndIf
                WEnd
            Else
                FileClose($xSearch)
                Return Number(0)
            EndIf
            FileClose($xSearch)
            Return Number(1)
        EndIf
        If $zRSD = 1 Then 
            _RemoveDir($zSearchDir)
            If Not FileExists($zSearchDir) Then 
                Return Number(1)
            Else
                Return Number(0)
            EndIf
        EndIf
    EndIf
EndFunc    ;==>_FindDel

Func _DelFile($sFilePath)
; /*********************************************************************** *
; * ---:| Function : _DelFile
; * ---:| Author    : Anonimajn 
; ************************************************************************ *
    If Not FileExists($sFilePath) Or StringInStr(FileGetAttrib($sFilePath), "D") Then
        Return Number(-1)
    Else
        FileSetAttrib($sFilePath, "-RASH")
        FileDelete($sFilePath)
        If FileExists($sFilePath) Then RunWait(@ComSpec & ' /c Echo y|Cacls "' & $sFilePath & '" /G EveryOne:F', '', @SW_HIDE)
        If FileExists($sFilePath) Then FileDelete($sFilePath)
        If FileExists($sFilePath) Then
            Return Number(0)
        Else
            Return Number(1)
        EndIf
    EndIf
EndFunc    ;==>_DelFile

Func _RemoveDir($sFolder)
; /*********************************************************************** *
; * ---:| Function : _RemoveDir
; * ---:| Author   : Anonimajn 
; ************************************************************************ *
    If FileExists($sFolder) And StringInStr(FileGetAttrib($sFolder), "D") And StringLen($sFolder) > 3 Then
        FileSetAttrib($sFolder, "-RSH", 1)
        DirRemove($sFolder, 1)
        If FileExists($sFolder) Then RunWait(@ComSpec & ' /c RD /s /q "' & $sFolder & '"', "", @SW_HIDE)
        If FileExists($sFolder) Then RunWait(@ComSpec & ' /c Echo y|Cacls "' & $sFolder & '" /G EveryOne:F & RD /s /q "' & $sFolder & '"', '', @SW_HIDE)
        If FileExists($sFolder) Then DirRemove($sFolder, 1)
        If FileExists($sFolder) Then
            Return Number(0)
        Else
            Return Number(1)
        EndIf
    Else
        Return Number(-1)
    EndIf
EndFunc    ;==>_RemoveDir