[solved] Open this folder with only txt or only exe files

[Borje]

I wonder if it is possible to open this folder and only show txt or exe files, thanks for help. Perhaps any one have some example.

 

$sfolderpath = @DesktopDir & "\konverterad\"

Local $oShell = ObjCreate('shell.application')
  If @error Then
      Return SetError(1, 0, 0)
  EndIf
    
  $oShell.Open($sFolderPath)
    Return 1

 

Edited July 12, 2023 by Borje

[Melba23]

Borje,

My ChooseFileFolder UDF will allow you to do that - but obviously not display them in Explorer. The link is in my sig.

M23

[Borje]

Ok but I want display in explorer I have also test shellexecute it open folder in explorer and all files there is listed can nat filter to .txt or exe.

[JLogan3o13]

34 minutes ago, Borje said:

Ok but I want display in explorer

Can you maybe expand on what the end goal is? You can return an array of the txt and exe files in a directory, and use _ArrayDisplay, or build your own "explorer" GUI. Just curious what you are doing with the files once you list them, as there may be a better way to accomplish what you are after.

[Borje]

I was just wondering if there was any way to filter without using fileopen, but one possibility is to make a own explorer window with a filter function, but I'm not sure how to do that.

[Melba23]

Borje,

Quote

one possibility is to make a own explorer window with a filter function

That is basically what my UDF does - you get the files displayed in a nice treeview within a GUI. Have you looked at it?

M23

[KaFu]

This might be a good starting point.

There's an example to "Automate a file search with UI Automation code", take a look at that.

[KaFu]

Hmm, couldn't get the example to work, maybe kindly ask @LarsJ for an update of the example?

[TheSaint]

My understanding, is that the OP wants to limit what they see in Explorer, via some kind of filter that works in Explorer. Sort of like what happens with System or Hidden files, but for all file types other than EXE or TXT.

Basically some kind of Windows Explorer addon or Registry setting, that I have never heard of, and may not exist.

[KaFu]

My initial thought was to open Explorer and perform a search on "*.txt OR *.exe" through "Automating File/Windows Explorer and Desktop".

[TheSaint]

Yeah it would be a bit like the results in a search window, only not a search window I guess, but a normal Explorer window, and of course for two file types not just one..

[bogQ]

On 7/6/2023 at 2:32 PM, KaFu said:

Hmm, couldn't get the example to work, maybe kindly ask @LarsJ for an update of the example?

@KaFu depending on where your stuck "couldn't get the example to work" below is how to run example mostly

 

Quote

#include "Includes\FileExplorer.au3"
#include "Includes\CUIAutomation2.au3"
#include <WinAPIShellEx.au3>
#include <Array.au3>
 

Presuming you already have FileExplorer.au3 from his original post.

Youl need https://github.com/jvanegmond/au3_uiautomation/blob/master/CUIAutomation2.au3

Only additional thing needed to run that example is changing variable name from $UIA_ValuePatternId to $UIA_ValuePattern if im not wrong, and it shud start i hope.

EDIT!: one explorer window need to be already opened by clicking to any folder before running script!!!

Edited July 7, 2023 by bogQ

[KaFu]

It works all fine, all returns are ptrs or OK, but this call does not set a search value for me.

$oEditValue.SetValue("com")

 

[bogQ]

yes yes i see, CurrentIsEnabled is True and CurrentIsReadOnly is set to False, it should work according to microsoft documentation, but still a no go. I wonder if it works on vista win7 with no problems.

Edit: not OS problem, Microsoft Inspect.exe can set its value with no problem. Aldo you need to focus to display changes it is strange to me why we get focus instead of just setting the value.

Edited July 7, 2023 by bogQ

[KaFu]

Strange, the first line seems to activate the explorer and gives the search box the keyboard focus, but does not fill it.

Adding these line after the SetValue and the example works as I would have expected in the first place.

The zip contains the example and all include files: Example8.7z

; Set search text, com
$oEditValue.SetValue("")

AutoItSetOption("SendKeyDelay",0)
AutoItSetOption("SendKeyDownDelay",0)
Send("*.txt OR *.exe")
Sleep(250)
Send("{ENTER}")

; Wait a second
Sleep(1000)

Edited July 7, 2023 by KaFu

[Borje]

Thanks all here and I use KaFu exampleand that works as exspected.