Get full path of file selected in explorer

[monoceres]

I'm working on a replacement program for the default windows copy-paste copying program but I've run into some problems.

I just can't get my head around getting the full path of a file in explorer.

My current code actually gets the name of the item and that works great on my system since I have turned on show file endings in explorers options.

I have some running code that sends ctrl+c and then use ClipGet() to get the path, but I don't like that options because it partly interfere with the original purpose of my script.

My Current Code:

#include <WINAPI.au3>
#include <Process.au3>
#include <GUIListView.au3>
#include <Array.au3>
Global $CopyHotKey = "^c"

HotKeySet($CopyHotKey, "_Copy")


Do
    Sleep(100)
Until False

Func _Copy()
    $handle = WinGetHandle("")
    $pid = WinGetProcess($handle)
    Local $tocopy[1]
    If _ProcessGetName($pid) = "explorer.exe" Then
        $chandle=ControlGetHandle($handle,"","[CLASSNN:SysListView321]")
        
        For $i=0 To _GUICtrlListView_GetItemCount($chandle)-1
            
            If _GUICtrlListView_GetItemState ($chandle,$i,$LVIS_SELECTED)=$LVIS_SELECTED Then
            MsgBox(0,"",_GUICtrlListView_GetItemText($chandle,$i))
            EndIf
            
        Next
    Else
        HotKeySet($CopyHotKey)
        Send("^c")
        HotKeySet($CopyHotKey, "_Copy")
    EndIf


    
EndFunc  ;==>_Copy

Thanks in advance!

[martin]

I'm working on a replacement program for the default windows copy-paste copying program but I've run into some problems.

I just can't get my head around getting the full path of a file in explorer.

My current code actually gets the name of the item and that works great on my system since I have turned on show file endings in explorers options.

I have some running code that sends ctrl+c and then use ClipGet() to get the path, but I don't like that options because it partly interfere with the original purpose of my script.

My Current Code:

#include <WINAPI.au3>
#include <Process.au3>
#include <GUIListView.au3>
#include <Array.au3>
Global $CopyHotKey = "^c"

HotKeySet($CopyHotKey, "_Copy")


Do
    Sleep(100)
Until False

Func _Copy()
    $handle = WinGetHandle("")
    $pid = WinGetProcess($handle)
    Local $tocopy[1]
    If _ProcessGetName($pid) = "explorer.exe" Then
        $chandle=ControlGetHandle($handle,"","[CLASSNN:SysListView321]")
        
        For $i=0 To _GUICtrlListView_GetItemCount($chandle)-1
            
            If _GUICtrlListView_GetItemState ($chandle,$i,$LVIS_SELECTED)=$LVIS_SELECTED Then
            MsgBox(0,"",_GUICtrlListView_GetItemText($chandle,$i))
            EndIf
            
        Next
    Else
        HotKeySet($CopyHotKey)
        Send("^c")
        HotKeySet($CopyHotKey, "_Copy")
    EndIf


    
EndFunc;==>_Copy

Thanks in advance!

This seems to work

expandcollapse popup

#include <WINAPI.au3>
#include <Process.au3>
#include <GUIListView.au3>
#include <Array.au3>
Global $CopyHotKey = "^c"

HotKeySet($CopyHotKey, "_Copy")


Do
    Sleep(100)
Until False

Func _Copy()
    $handle = WinGetHandle("")
    $pid = WinGetProcess($handle)
    Local $tocopy[1]
;ConsoleWrite( _ProcessGetName($pid) & @CRLF)
    If _ProcessGetName($pid) = "explorer.exe" Then
        $chandle=ControlGetHandle($handle,"","[CLASS:SysListView32;INSTANCE:1]")
;ConsoleWrite("no of items = " & _GUICtrlListView_GetItemCount($chandle) & @CRLF)
        For $i=0 To _GUICtrlListView_GetItemCount($chandle)-1
            
            If _GUICtrlListView_GetItemState ($chandle,$i,$LVIS_SELECTED)=$LVIS_SELECTED Then
            MsgBox(0,"",_GUICtrlListView_GetItemText($chandle,$i))
            EndIf
            
        Next
    Else
        HotKeySet($CopyHotKey)
        Send("^c")
        HotKeySet($CopyHotKey, "_Copy")
    EndIf


    
EndFunc;==>_Copy

Edited September 8, 2008 by martin

[monoceres]

This seems to work

Yeah, but if you have selected not to show the file endings then if I select test.mp3 only test shows up

[martin]

Yeah, but if you have selected not to show the file endings then if I select test.mp3 only test shows up

Umm, some people are difficult to please

You could make your script set the options to view extensions.

Presumably if you send ^c the full information on the file is in the clipboard or else how does explorer know what to paste, so perhaps it's just a question of finding some way to read what's in the clipboard.

[monoceres]

Umm, some people are difficult to please

You could make your script set the options to view extensions.

Presumably if you send ^c the full information on the file is in the clipboard or else how does explorer know what to paste, so perhaps it's just a question of finding some way to read what's in the clipboard.

I know I actually made a function that gets the information that way, but I was just wondering if there was another way to do it. It would be great if I could avoid using the clipboard at all

[MilesAhead]

I know I actually made a function that gets the information that way, but I was just wondering if there was another way to do it. It would be great if I could avoid using the clipboard at all

If you are right clicking in Explorer to do the Copy Paste then you should be able to use the Shell extension mechanism to get the complete path of the selected file(s). AutoIt3 probably isn't the best choice for shell extensions though. VC++ 6 is much easier for this purpose. Esp. since you can get code generators from

Code Project for Context Menu Handlers etc..

To learn more about shell extensions go to code project and search on keywords

Idiot's Guide Shell Extension and a bunch of very good articles come up. Also somebody

made a wizard if you have VC++ 6 Professional that generates skeleton code for various

shell extension type handlers. Doing it from scratch is very frustrating but if you can go

from skeleton code you just make a simple test dll that works, then go back and fill in the

real code to do the job. They are kind of fun once you get some of them going.

[torels]

I have an Idea (maybe a stupid one):

$thefilename = "your_file_without_ext"

FileFindFirstFile("C:\path\" & $thefilename & ".*")

and so on...

you could try and get the file that way

Edited September 8, 2008 by torels

[martin]

If you are right clicking in Explorer to do the Copy Paste then you should be able to use the Shell extension mechanism to get the complete path of the selected file(s). AutoIt3 probably isn't the best choice for shell extensions though. VC++ 6 is much easier for this purpose. Esp. since you can get code generators from

Code Project for Context Menu Handlers etc..

To learn more about shell extensions go to code project and search on keywords

Idiot's Guide Shell Extension and a bunch of very good articles come up. Also somebody

made a wizard if you have VC++ 6 Professional that generates skeleton code for various

shell extension type handlers. Doing it from scratch is very frustrating but if you can go

from skeleton code you just make a simple test dll that works, then go back and fill in the

real code to do the job. They are kind of fun once you get some of them going.

It's not at all difficult to add extensions like that and it doesn't need anything fancy.

$KeyName = "file extras"
$ContextMenuName = "Get file details";the menu item text
$ProgramToRun = @SystemDir & "\monoceres.exe"; program to run when option is clicked
RegWrite("HKEY_CLASSES_ROOT\*\shell\" & $KeyName & "\command", '', 'REG_SZ', '"' & $ProgramToRun & '" "%1"');'passes file full path to program
RegWrite("HKEY_CLASSES_ROOT\*\shell\" & $KeyName, '', 'REG_SZ', $ContextMenuName)

[monoceres]

If you are right clicking in Explorer to do the Copy Paste then you should be able to use the Shell extension mechanism to get the complete path of the selected file(s). AutoIt3 probably isn't the best choice for shell extensions though. VC++ 6 is much easier for this purpose. Esp. since you can get code generators from

Code Project for Context Menu Handlers etc..

To learn more about shell extensions go to code project and search on keywords

Idiot's Guide Shell Extension and a bunch of very good articles come up. Also somebody

made a wizard if you have VC++ 6 Professional that generates skeleton code for various

shell extension type handlers. Doing it from scratch is very frustrating but if you can go

from skeleton code you just make a simple test dll that works, then go back and fill in the

real code to do the job. They are kind of fun once you get some of them going.

Thanks, I will search around and see what I can found. You don't know any article do you? I only seem to find articles about building my own, not interacting with others.

I have an Idea (maybe a stupid one):

$thefilename = "your_file_without_ext"

FileFindFirstFile("C:\path\" & $thefilename & ".*")

and so on...

you could try and get the file that way

That won't very well. There could be files with the same first letters and different file endings. Like hello.wav and hello.mp3.

Thanks anyway

[monoceres]

It's not at all difficult to add extensions like that and it doesn't need anything fancy.

$KeyName = "file extras"
 $ContextMenuName = "Get file details";the menu item text
 $ProgramToRun = @SystemDir & "\monoceres.exe"; program to run when option is clicked
 RegWrite("HKEY_CLASSES_ROOT\*\shell\" & $KeyName & "\command", '', 'REG_SZ', '"' & $ProgramToRun & '" "%1"');'passes file full path to program
 RegWrite("HKEY_CLASSES_ROOT\*\shell\" & $KeyName, '', 'REG_SZ', $ContextMenuName)

Now I understand, so the next question is rather obvious... do you know how to click the Context Menu item that is created without the user seeing everything?

[Monamo]

I'm working on a replacement program for the default windows copy-paste copying program but I've run into some problems.

I just can't get my head around getting the full path of a file in explorer.

My current code actually gets the name of the item and that works great on my system since I have turned on show file endings in explorers options.

I have some running code that sends ctrl+c and then use ClipGet() to get the path, but I don't like that options because it partly interfere with the original purpose of my script.

Not sure if it'll handle exactly what you're trying to do, but I've got a right-click (context menu) utility method written in AutoIt available -> here.

[MilesAhead]

Thanks, I will search around and see what I can found. You don't know any article do you? I only seem to find articles about building my own, not interacting with others.

I don't know how you could replace the shell copy/paste without rolling your own .dll.

The best chance for an AutoIt implementation may be if there's something in ActiveX

I haven't messed around with any ActiveX in AutoIt yet so I'm not sure what's there.

Hooking script into the explorer shell is generally not a good idea as errors tend to

make the shell restart. Usually better to have a dll do the interaction and it can call

some other exe to do the dirty work.

For context menu as example, every time you right click the explorer items that fit

whatever you registered the shell handler for, it's going to call you with an init call

and hand you the filename or list of items selected, then if things proceed from there,

it calls to let you add commands or submenus to the context menu. Then if a command

is selected, it calls your dll yet again to execute the command. Lots of handlers are

being loaded queried etc.. by the shell so anything slow or fragile shouldn't be hooking

into it.

[MrCreatoR]

Maybe this one can help:

expandcollapse popup

#include <Array.au3>

$aSelected_Info = _ExplorerGetSelectedItems()
If @error Then Exit MsgBox(48, "Error", "There is no selected items." & @LF & @LF & "OK ==> EXIT")

_ArrayDisplay($aSelected_Info) 

;[0][0] = Total items count
;[N][0] = Selected element Index
;[N][1] = Selected element is Directory
;[N][2] = Selected element string (full path to the file/dir)
Func _ExplorerGetSelectedItems($sCabinetWClass="[CLASS:CabinetWClass]")
    Local $aRetInfo[1][1]
    Local $aIndexes, $iIndex, $iCount, $sSelected, $sSelected_Path
    Local $hSearch, $sCurrentFile
    
    $sSelected_Path = ControlGetText($sCabinetWClass, "", "Edit1")
    $aIndexes = StringSplit(ControlListView($sCabinetWClass, "", "SysListView321", "GetSelected", 1), "|")
    
    If $aIndexes[0] = 1 And $aIndexes[1] = "" Then Return SetError(1, 0, 0)
    
    For $i = 1 To $aIndexes[0]
        $sSelected = ControlListView($sCabinetWClass, "", "SysListView321", "GetText", $aIndexes[$i])
        $sCurrentFile = $sSelected_Path & "\" & $sSelected
        
        If Not FileExists($sCurrentFile) Then ;Search the extension for file...
            $hSearch = FileFindFirstFile($sCurrentFile & ".*")
            
            If $hSearch <> -1 Then
                $sCurrentFile = $sSelected_Path & "\" & FileFindNextFile($hSearch)
                FileClose($hSearch)
            EndIf
        EndIf
        
        $aRetInfo[0][0] += 1
        ReDim $aRetInfo[$aRetInfo[0][0]+1][3]
        
        $aRetInfo[$aRetInfo[0][0]][0] = $aIndexes[$i] ;Index
        $aRetInfo[$aRetInfo[0][0]][1] = Number(StringInStr(FileGetAttrib($sCurrentFile), "D") > 0) ;Is Directory
        $aRetInfo[$aRetInfo[0][0]][2] = $sCurrentFile ;Selected file / dir
    Next
    
    If $aRetInfo[0][0] = 0 Then Return SetError(2, 0, 0)
    
    Return $aRetInfo
EndFunc

Edited October 11, 2008 by MrCreatoR