Recursive search - filename - user profile directory

[Erlend]

Hello

I am writing a script to cleanup files from a old version of an application in the user profile folder in a terminal server environment.

i have found this script inn this thread:

Search ("C:\","advapi32.dll");replace with your search directory and file required

Func Search($current,$toFind)
    If StringRight($current,1) = "\" then $current = StringTrimRight($current,1)
    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
        Dim $file = FileFindNextFile($search)
        If @error Or StringLen($file) < 1 Then ExitLoop
        If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then

            IF $file = $toFind then Msgbox(0,"File found", $current & "\" & $file); you could add it to an array delete it or whatever else you wanted to do with it here
                
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            Search($current & "\" & $file, $toFind)
            
        EndIf
        
    WEnd
    FileClose($search)

EndFunc

What do i need to change add in this script to search and delete a file in the %userprofile% directory?

Thanks for any advice/examples

[Monamo]

Hello

I am writing a script to cleanup files from a old version of an application in the user profile folder in a terminal server environment.

i have found this script inn this thread:

CODE

Search ("C:\","advapi32.dll");replace with your search directory and file required

Func Search($current,$toFind)

If StringRight($current,1) = "\" then $current = StringTrimRight($current,1)

Local $search = FileFindFirstFile($current & "\*.*")

While 1

Dim $file = FileFindNextFile($search)

If @error Or StringLen($file) < 1 Then ExitLoop

If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then

IF $file = $toFind then Msgbox(0,"File found", $current & "\" & $file); you could add it to an array delete it or whatever else you wanted to do with it here

EndIf

If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then

Search($current & "\" & $file, $toFind)

EndIf

WEnd

FileClose($search)

EndFunc

What do i need to change add in this script to search and delete a file in the %userprofile% directory?

Thanks for any advice/examples

@UserProfileDir (re: "Macro Reference" in the Help file) Edited August 13, 2008 by Monamo