DONE: Difficult Finder

[Contro]

Difficult Finder

Open a folder in a path predefined.
Open a folder inside a folder proposing his name after invoking the script by a definable hotkey.

I would like a snack for :

1. Using a hotkey run a script that open a window to propose the name of a subfolder
2. All the subfolders are from a given path . By example : Y:\GABINETE\PROYECTOS\
3. If the subfolder exists open the folder. If not simply return.

By example

I wish to open the subfolder 206

That is
Y:\GABINETE\PROYECTOS\206

P.D. I have a more difficult situation . I want to open all the subfolders from a list of paths is exists.
By example : I wish to open the subfolder 206 proposing its name in a window invoked by a hotkey.
Then open in these paths if exist :
Y:\Example\Path1\
Y:\engineer\path2\
......
y:\conta\


That is. Open if exist :
Y:\example\path1\206\
Y:\engineer\path2\206
......
y:\conta\206

I would like a fast script.

Thanks

[Ruffnekk]

Are you still looking for a solution to this problem?

[Contro]

Yes I would like.
I have not solved.
Best Regards

[4wd]

MultiOpen.au3 - No error checking, no error messages, absolutely nothing happens if the path doesn't exist, doesn't run in the background, doesn't make coffee.

Code: (autoit)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include 'RFLTA.au3'

Local $output
Local $inifile = StringLeft(@ScriptName, StringLen(@ScriptName) - 4) & '.ini'

If Not FileExists($inifile) Then Exit

Local $subdir = InputBox('MultiOpen', 'Sub-directory to open:' & @CRLF & @CRLF & 'Wildcards * and ? can be used.', '*')
If @error = 1 Then Exit
If $subdir = '' Then $subdir = '*'

Local $paths = IniReadSection($inifile, 'Paths')

If Not IsArray($paths) Then Exit

For $i = 1 To $paths[0][0]
	If $subdir <> '*' Then
		Local $sDirs = _RecFileListToArray($paths[$i][1], $subdir, 2, 0, 0, 1)
		If IsArray($sDirs) Then
			For $j = 1 To $sDirs[0]
				ShellExecute($paths[$i][1] & '\' & $sDirs[$j])
			Next
		EndIf
	Else
		ShellExecute($paths[$i][1])
	EndIf
Next

MultiOpen.ini example:

Code: (generic)

[Paths]
path1=R:\test
path2=c:
path3=r:\test\contro
path4=d:\temp

Run it by double-clicking on the icon or set up a hotkey in your favourite launcher or Windows - there's no need to have it running in the background.

EDIT: Fixed .ini file and now respects Cancel button. :/
EDIT2: Added wildcards.

[Contro]

Running to coffee

Ouwwww. Running to try

[4wd]

No change to code but I removed the trailing \ on one of the entries in the ini.

ie. No trailing \ on paths.

[Contro]

Okis
Running to try

[Contro]

What do you mean ?
Until the moment I don't know exactly what to do
Please, can you explain me ?

[4wd]

This good:

Code: (generic)

path2=c:

This bad:

Code: (generic)

path2=c:\

Edit MultiOpen.ini to add in the paths you want the program to look in for sub-directories.

Run the program, enter in the sub-directory you want to open in the paths you have configured - if they exist, they will be opened in Explorer, (I think - worked OK for DOpus).

eg. for your example MultiOpen.ini would look like this:

Code: (generic)

[Paths]
path1=Y:\Example\Path1
path2=Y:\engineer\path2
path3=y:\conta

and you would enter 206 when you ran the program.



If you enter nothing and hit OK, all the directories in MultiOpen.ini will be opened.

[Contro]

Undertood completely now.
I'll try and comment.
Best Regards

[Contro]

Nice indeed.
I need to propose the exact name of the folder.
That's : 206.12 goes well
206 don't open because is not the complete name.

Exist an option to look in subchains of the folders ?

The program goes marvellous and is fast.

[4wd]

Added wildcards.

eg. 206*

[Contro]

thank you !!!!!!!!!!!!!!

[skwire]

Nice work, all.  Contro, I assume we can call this one done?  If so, I'll move it to the finished section.

[4wd]

Move it!  Quick!!