Need help with StringRegExp

[helpus]

hello, i'm new to this function so i need some help doing this,
btw, i need to clear up my folder of work by deleting some files

example file inside folder :

info000001 to info999999

but i want to delete files name other than info(number)

Func _delete()
    $dir = @ScriptDir & '\information'
    $cFiles = _FileListToArray($dir & '\', "*.xml", 1)
    If IsArray($cFiles) Then
        For $number To $cFiles[0]
            ;need to use StringRegExp here
            ;$stringRExp
            If $cFiles[$number] <> $stringRExp Then
                FileDelete($cFiles[$number]
            EndIf
        Next
    EndIf
EndFunc

 

[Melba23]

helpus,

This seems to work:

Global $aFiles[] = [3, "info000001", "info999999", "Keep_me"]

For $i = 1 To $aFiles[0]
    If StringRegExp($aFiles[$i], "(?i)^info\d{6}$") Then
        ConsoleWrite("Delete:  " & $aFiles[$i] & @CRLF)
    Else
        ConsoleWrite("Keeping: " & $aFiles[$i] & @CRLF)
    EndIf
Next

It checks if the file name is "info" followed by 6 digits.

M23

[helpus]

thank you @Melba23 this really helpful