Capture the address window or file path to the clipboard with hotkey

[Contro]

Capture the address window or file path to the clipboard with hotkey

I would like a software for

1. Capture the address of the selected active window to the clipboard with a definable hotkey
2. capture the file path selected to the clipboard with a definable hotkey

Capture the address window or file path to the clipboard with hotkey

Capture the address window or file path to the clipboard with hotkey

Best Regards

[skwire]

1. Capture the address of the selected active window to the clipboard with a definable hotkey

-Contro (June 26, 2012, 04:40 PM)

Since you have the active path displayed in the window's titlebar, you can do your first request like this:

Code: Autohotkey [Select]

1. #q:: ; Win+Q, change to your liking.
2. {
3.     WinGetTitle, Clipboard, A
4. }
5. Return

2. capture the file path selected to the clipboard with a definable hotkey

-Contro (June 26, 2012, 04:40 PM)

The easiest way is probably:

Code: Autohotkey [Select]

1. #c:: ; Win+C, change to your liking.
2. {
3.     Clipboard = %Clipboard%
4. }
5. Return

[Contro]

1. Capture the address of the selected active window to the clipboard with a definable hotkey

-Contro (June 26, 2012, 04:40 PM)

Since you have the active path displayed in the window's titlebar, you can do your first request like this:

Code: Autohotkey [Select]

1. #q:: ; Win+Q, change to your liking.
2. {
3.     WinGetTitle, Clipboard, A
4. }
5. Return

2. capture the file path selected to the clipboard with a definable hotkey

-Contro (June 26, 2012, 04:40 PM)

The easiest way is probably:

Code: Autohotkey [Select]

1. #c:: ; Win+C, change to your liking.
2. {
3.     Clipboard = %Clipboard%
4. }
5. Return

-skwire (June 26, 2012, 05:39 PM)

Running
I can't believe would be so simpleeeeeeeeeeeeeee

 

[Contro]

i am trying this first. But no results

[Select]

; 1. Capture the address of the selected active window to the clipboard with a definable hotkey

; Since you have the active path displayed in the window's titlebar, you can do your first request like this:

; Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
; Skwire
;   !#y:: ; no parece elegible ^#y en ctrl+Win+y, change to your liking. Pruebo con alt
^!u:: ;
    {
       WinGetTitle, Clipboard, A
    }
    Return

In the screenshots I selected the folder path, but the target is copy to the clipboard without it.
Only needed to select the windows folder.

I am doing something bad. Don't copy
I tried also win+1
but the clipboard have wrong.
It seems don't act the command

[Contro]

Repeating

[Select]

#q:: ; Win+Q, change to your liking.
    {
       WinGetTitle, Clipboard, A
    }
    Return

Go perfect

[Contro]

Repeating

[Select]

#c:: ; Win+C, change to your liking.
    {
       Clipboard = %Clipboard%
    }
    Return

don't go

I don't understand

clipboard = %clipboard%   ; Convert any copied files, HTML, or other formatted text to plain text.

I position the cursor over one file.

By example :

Capture the address window or file path to the clipboard with hotkey

After applying the script don't appear the clip in my Ditto Clipboard.

[skwire]

Try this:

Code: Autohotkey [Select]

1. #c:: ; Win+C, change to your liking.
2. {
3.     SendInput, ^c
4.     ClipWait, 2
5.     Clipboard = %Clipboard%
6. }
7. Return

[4wd]

I'm not sure but I think what Contro is saying is:

a) If no file is selected, return the Window address field to the clipboard.
b) If a file is selected, return the full path of the file.

Feel free to ignore me if I'm wrong

Of course, with my non-knowledge of AutoHK you might have already answered the question, in which case feel free to 

[Contro]

I'm not sure but I think what Contro is saying is:

a) If no file is selected, return the Window address field to the clipboard.
b) If a file is selected, return the full path of the file.

Feel free to ignore me if I'm wrong

Of course, with my non-knowledge of AutoHK you might have already answered the question, in which case feel free to 

-4wd (June 27, 2012, 10:39 PM)

May be that what you are telling is what I must say.

 

It's a good solution, because with one hotkey we can do all the tasks

[Contro]

Try this:

Code: Autohotkey [Select]

1. #c:: ; Win+C, change to your liking.
2. {
3.     SendInput, ^c
4.     ClipWait, 2
5.     Clipboard = %Clipboard%
6. }
7. Return

-skwire (June 27, 2012, 09:54 PM)

Running to try
Best Regards
 

[Contro]

A Strange thing. One time goes well. next time fails.

4wd is the best initial idea :

Possibilities with the assigned hotkey .
1. In the active window assigned hotkey copy the active window path to the clipboard
2. In the active window and one subfolder select copy the the subfolder path to the clipboard
3. In the active window and file select inside that folder or explorer window copy the file path to the clipboard.

 

[4wd]

I did not write any of this, (except _ExClip function and set a hotkey), it was written by Ascend4ant and Melba23 over on the AutoIt forum.

Thank them if you want to thank someone.

The hotkey is set for Shift+Alt+C, edit the code to change it to what you like.

• If nothing is selected, the Explorer path is clipped.
• If something is selected, its full path is clipped.
• If multiple somethings are selected, only the first one is returned.

Code: AutoIt [Select]

1. ; http://www.autoitscript.com/forum/topic/89833-windows-explorer-current-folder/page__st__40#entry973904
2. #include <Array.au3>
3.  
4. HotKeySet('+!c', '_ExClip') ; Shift+Alt+C
5.  
6. Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ComErrFunc")
7.  
8. While 1
9.         Sleep(100)
10. WEnd
11.  
12.  
13. Func _ExClip()
14.         $hExplr = WinActive("[REGEXPCLASS:(Explore|Cabinet)WClass]")
15.         If $hExplr <> '' Then
16.                 $aSelection = _ExplorerWinGetSelectedItems($hExplr)
17.                 If $aSelection[0] = 0 Then
18.                         If StringLeft($aSelection[1], 2) <> '::' Then ClipPut($aSelection[1])
19.                 Else
20.                         ClipPut($aSelection[2])
21.                 EndIf
22.         EndIf
23. EndFunc
24.  
25.  
26.  
27. ; ==========================================================================================================================
28.  
29. ; Func _ObjectSHFolderViewFromWin($hWnd)
30. ;
31. ; Returns an 'ShellFolderView' Object for the given Window handle
32. ;
33. ; Author: Ascend4nt, based on code by KaFu, klaus.s
34. ; ==========================================================================================================================
35.  
36. Func _ObjectSHFolderViewFromWin($hWnd)
37.     If Not IsHWnd($hWnd) Then Return SetError(1,0,0)
38.     Local $oShell,$oShellWindows,$oIEObject,$oSHFolderView
39.  
40.     ; Shell Object
41.     $oShell=ObjCreate("Shell.Application")
42.     If Not IsObj($oShell) Then Return SetError(2,0,0)
43.  
44. ;   Get a 'ShellWindows Collection' object
45.     $oShellWindows = $oShell.Windows()
46.     If Not IsObj($oShellWindows) Then Return SetError(3,0,0)
47.  
48. ;   Iterate through the collection - each of type 'InternetExplorer' Object
49.  
50.     For $oIEObject In $oShellWindows
51.         If $oIEObject.HWND = $hWnd Then
52.             ; InternetExplorer->Document = ShellFolderView object
53.             $oSHFolderView=$oIEObject.Document
54.             If IsObj($oSHFolderView) Then Return $oSHFolderView
55.             Return SetError(4,0,0)
56.         EndIf
57.     Next
58.  
59.     Return SetError(-1,0,0)
60. EndFunc
61.  
62. ; ==========================================================================================================================
63. ; Func _ExplorerWinGetSelectedItems($hWnd)
64. ;
65. ;
66. ; Author: klaus.s, KaFu, Ascend4nt (consolidation & cleanup, Path name simplification)
67. ; ==========================================================================================================================
68.  
69. Func _ExplorerWinGetSelectedItems($hWnd)
70.     If Not IsHWnd($hWnd) Then Return SetError(1,0,'')
71.     Local $oSHFolderView
72.     Local $iSelectedItems,$iCounter=2,$aSelectedItems[2] = [0, ""]
73.  
74.     $oSHFolderView=_ObjectSHFolderViewFromWin($hWnd)
75.     If @error Then Return SetError(@error,0,'')
76.  
77. ;   SelectedItems = FolderItems Collection object->Count
78.     $iSelectedItems = $oSHFolderView.SelectedItems.Count
79.  
80.     Dim $aSelectedItems[$iSelectedItems+2]  ; 2 extra -> 1 for count [0], 1 for Folder Path [1]
81.  
82.     $aSelectedItems[0]=$iSelectedItems
83. ;   ShellFolderView->Folder->Self as 'FolderItem'->Path
84.     $aSelectedItems[1]=$oSHFolderView.Folder.Self.Path
85.  
86. ;   ShellFolderView->SelectedItems = FolderItems Collection object
87.     $oSelectedFolderItems = $oSHFolderView.SelectedItems
88.  
89. #cs
90.     ; For ALL items in an Explorer Window (not just the selected ones):
91.     $oSelectedFolderItems = $oSHFolderView.Folder.Items
92.     ReDim $aSelectedItems[$oSelectedFolderItems.Count+2]
93. #ce
94.  
95.     For $oFolderItem In $oSelectedFolderItems
96.         $aSelectedItems[$iCounter] = $oFolderItem.Path
97.         $iCounter += 1
98.     Next
99.  
100.     Return SetExtended($iCounter-2,$aSelectedItems)
101. EndFunc   ;==>_ExplorerWinGetSelectedItems
102.  
103. Func _ComErrFunc($oError)
104.     ConsoleWrite("COM Error occurred:"  & @CRLF & _
105.         "Number: " & @TAB & $oError.number & @CRLF & _
106.         "Windescription:" & @TAB & $oError.windescription & @CRLF & _
107.         "Description is: " & @TAB & $oError.description & @CRLF & _
108.         "Source is: " & @TAB & $oError.source & @CRLF & _
109.         "Helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
110.         "Helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
111.         "Lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
112.         "Scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
113.         "Retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
114. EndFunc   ;==>_ComErrFunc

[Contro]

I did not write any of this, (except _ExClip function and set a hotkey), it was written by Ascend4ant and Melba23 over on the AutoIt forum.

Thank them if you want to thank someone.

The hotkey is set for Shift+Alt+C, edit the code to change it to what you like.

• If nothing is selected, the Explorer path is clipped.
• If something is selected, its full path is clipped.
• If multiple somethings are selected, only the first one is returned.

Code: AutoIt [Select]

1. ; http://www.autoitscript.com/forum/topic/89833-windows-explorer-current-folder/page__st__40#entry973904
2. #include <Array.au3>
3.  
4. HotKeySet('+!c', '_ExClip') ; Shift+Alt+C
5.  
6. Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ComErrFunc")
7.  
8. While 1
9.         Sleep(100)
10. WEnd
11.  
12.  
13. Func _ExClip()
14.         $hExplr = WinActive("[REGEXPCLASS:(Explore|Cabinet)WClass]")
15.         If $hExplr <> '' Then
16.                 $aSelection = _ExplorerWinGetSelectedItems($hExplr)
17.                 If $aSelection[0] = 0 Then
18.                         If StringLeft($aSelection[1], 2) <> '::' Then ClipPut($aSelection[1])
19.                 Else
20.                         ClipPut($aSelection[2])
21.                 EndIf
22.         EndIf
23. EndFunc
24.  
25.  
26.  
27. ; ==========================================================================================================================
28.  
29. ; Func _ObjectSHFolderViewFromWin($hWnd)
30. ;
31. ; Returns an 'ShellFolderView' Object for the given Window handle
32. ;
33. ; Author: Ascend4nt, based on code by KaFu, klaus.s
34. ; ==========================================================================================================================
35.  
36. Func _ObjectSHFolderViewFromWin($hWnd)
37.     If Not IsHWnd($hWnd) Then Return SetError(1,0,0)
38.     Local $oShell,$oShellWindows,$oIEObject,$oSHFolderView
39.  
40.     ; Shell Object
41.     $oShell=ObjCreate("Shell.Application")
42.     If Not IsObj($oShell) Then Return SetError(2,0,0)
43.  
44. ;   Get a 'ShellWindows Collection' object
45.     $oShellWindows = $oShell.Windows()
46.     If Not IsObj($oShellWindows) Then Return SetError(3,0,0)
47.  
48. ;   Iterate through the collection - each of type 'InternetExplorer' Object
49.  
50.     For $oIEObject In $oShellWindows
51.         If $oIEObject.HWND = $hWnd Then
52.             ; InternetExplorer->Document = ShellFolderView object
53.             $oSHFolderView=$oIEObject.Document
54.             If IsObj($oSHFolderView) Then Return $oSHFolderView
55.             Return SetError(4,0,0)
56.         EndIf
57.     Next
58.  
59.     Return SetError(-1,0,0)
60. EndFunc
61.  
62. ; ==========================================================================================================================
63. ; Func _ExplorerWinGetSelectedItems($hWnd)
64. ;
65. ;
66. ; Author: klaus.s, KaFu, Ascend4nt (consolidation & cleanup, Path name simplification)
67. ; ==========================================================================================================================
68.  
69. Func _ExplorerWinGetSelectedItems($hWnd)
70.     If Not IsHWnd($hWnd) Then Return SetError(1,0,'')
71.     Local $oSHFolderView
72.     Local $iSelectedItems,$iCounter=2,$aSelectedItems[2] = [0, ""]
73.  
74.     $oSHFolderView=_ObjectSHFolderViewFromWin($hWnd)
75.     If @error Then Return SetError(@error,0,'')
76.  
77. ;   SelectedItems = FolderItems Collection object->Count
78.     $iSelectedItems = $oSHFolderView.SelectedItems.Count
79.  
80.     Dim $aSelectedItems[$iSelectedItems+2]  ; 2 extra -> 1 for count [0], 1 for Folder Path [1]
81.  
82.     $aSelectedItems[0]=$iSelectedItems
83. ;   ShellFolderView->Folder->Self as 'FolderItem'->Path
84.     $aSelectedItems[1]=$oSHFolderView.Folder.Self.Path
85.  
86. ;   ShellFolderView->SelectedItems = FolderItems Collection object
87.     $oSelectedFolderItems = $oSHFolderView.SelectedItems
88.  
89. #cs
90.     ; For ALL items in an Explorer Window (not just the selected ones):
91.     $oSelectedFolderItems = $oSHFolderView.Folder.Items
92.     ReDim $aSelectedItems[$oSelectedFolderItems.Count+2]
93. #ce
94.  
95.     For $oFolderItem In $oSelectedFolderItems
96.         $aSelectedItems[$iCounter] = $oFolderItem.Path
97.         $iCounter += 1
98.     Next
99.  
100.     Return SetExtended($iCounter-2,$aSelectedItems)
101. EndFunc   ;==>_ExplorerWinGetSelectedItems
102.  
103. Func _ComErrFunc($oError)
104.     ConsoleWrite("COM Error occurred:"  & @CRLF & _
105.         "Number: " & @TAB & $oError.number & @CRLF & _
106.         "Windescription:" & @TAB & $oError.windescription & @CRLF & _
107.         "Description is: " & @TAB & $oError.description & @CRLF & _
108.         "Source is: " & @TAB & $oError.source & @CRLF & _
109.         "Helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
110.         "Helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
111.         "Lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
112.         "Scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
113.         "Retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
114. EndFunc   ;==>_ComErrFunc

-4wd (July 03, 2012, 09:21 AM)

I'll try and comment.
 

[Contro]

 

Wonderful.
Wonderfullllllllllllllllllllllllllllllllllll

Capture the address window or file path to the clipboard with hotkey

Capture the address window or file path to the clipboard with hotkey

Capture the address window or file path to the clipboard with hotkey

Capture the address window or file path to the clipboard with hotkey

[gabrielko]

This may or may not be significant, it's totally up to you to decide I really did get a quick fix with Long Path Tool. http://PathTooDeep.com