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 [Select]

1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
2. #AutoIt3Wrapper_UseUpx=n
3. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
4. #include 'RFLTA.au3'
5.  
6. Local $output
7. Local $inifile = StringLeft(@ScriptName, StringLen(@ScriptName) - 4) & '.ini'
8.  
9. If Not FileExists($inifile) Then Exit
10.  
11. Local $subdir = InputBox('MultiOpen', 'Sub-directory to open:' & @CRLF & @CRLF & 'Wildcards * and ? can be used.', '*')
12. If @error = 1 Then Exit
13. If $subdir = '' Then $subdir = '*'
14.  
15. Local $paths = IniReadSection($inifile, 'Paths')
16.  
17. If Not IsArray($paths) Then Exit
18.  
19. For $i = 1 To $paths[0][0]
20.         If $subdir <> '*' Then
21.                 Local $sDirs = _RecFileListToArray($paths[$i][1], $subdir, 2, 0, 0, 1)
22.                 If IsArray($sDirs) Then
23.                         For $j = 1 To $sDirs[0]
24.                                 ShellExecute($paths[$i][1] & '\' & $sDirs[$j])
25.                         Next
26.                 EndIf
27.         Else
28.                 ShellExecute($paths[$i][1])
29.         EndIf
30. Next

MultiOpen.ini example:

Code: Text [Select]

1. [Paths]
2. path1=R:\test
3. path2=c:
4. path3=r:\test\contro
5. 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: Text [Select]

1. path2=c:

This bad:

Code: Text [Select]

1. 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: Text [Select]

1. [Paths]
2. path1=Y:\Example\Path1
3. path2=Y:\engineer\path2
4. 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 !!!!!!!!!!!!!!

DONE: Difficult Finder

[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!!