FileOpenDialog() opposite filter

[maqleod]

is there a way to set the filter on FileOpenDialog() to filter out what you list rather than the default?

For example, I want the dialog to see all file types except .exe, .bat, .com and .pif

rather than list all other possible types, can I just list those in a different manner to exclude them?

[dantay9]

There isn't a solution that I am aware of. You will just have to list them all or make your own gui.

[maqleod]

There isn't a solution that I am aware of. You will just have to list them all or make your own gui.

It seems to me that this should be an option for fileopendialog(), like something you can add to the filters section with the NOT keyword to exclude file types. Oh well, i suppose i could just give an error message if an executable is selected.

[Andreik]

It seems to me that this should be an option for fileopendialog(), like something you can add to the filters section with the NOT keyword to exclude file types. Oh well, i suppose i could just give an error message if an executable is selected.

It can be done something like this:

Func FileOpenDialogEx($TITLE,$INIT,$EXCEPTION,$OPTIONS)
    Local $ERROR = False
    Local $FILE = FileOpenDialog($TITLE,$INIT,"All (*.*)",$OPTIONS)
    Local $EXT = StringRight($FILE,StringLen($FILE)-StringInStr($FILE,".",0,-1)+1)
    For $INDEX = 0 To UBound($EXCEPTION)-1
        If $EXCEPTION[$INDEX] = $EXT Then
            $ERROR = True
            ExitLoop
        EndIf
    Next
    If $ERROR Then
        Return "EXCEPTION"
    Else
        Return $FILE
    EndIf
EndFunc

Dim $EXE[4] = [".exe",".bat",".com",".pif"]
MsgBox(0,"",FileOpenDialogEx("SELECT",@ScriptDir,$EXE,1))

Edited February 18, 2009 by Andreik