Copy file name Just

[asad41163]

This great code frome here: https://autohotkey.com/boards/viewtopic.php?f=5&t=44848
Written by: Odlanir

Code: Select all

q::
fileselected := Explorer_GetSelection()
SplitPath,fileselected, fn
MsgBox % "FileName :`t" fn "`nFullName :`t" fileselected
return


Explorer_GetSelection(hwnd="") {
    WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
    WinGetClass class, ahk_id %hwnd%
    if (process = "explorer.exe")
        if (class ~= "Progman|WorkerW") {
            ControlGet, files, List, Selected Col1, SysListView321, ahk_class %class%
            Loop, Parse, files, `n, `r
                ToReturn .= A_Desktop "\" A_LoopField "`n"
        } else if (class ~= "(Cabinet|Explore)WClass") {
            for window in ComObjCreate("Shell.Application").Windows
                if (window.hwnd==hwnd)
                    sel := window.Document.SelectedItems
            for item in sel
                ToReturn .= item.path "`n"
        }
    return Trim(ToReturn,"`n")
}

my question is:
How do I get a list by name only in clipboard, formatted as in the picture, can paste it into any text editor

ask.png (2.87 KiB) Viewed 1299 times

Any help would be greatly appreciated

[poetbox]

Loop, Files, *.bas

[poetbox]

Loop, Files, %dir%\*.bas
list=%list%%A_LoopFileName%`n
clipboard=FileName:`n%list%
MsgBox %clipboard%

[poetbox]

all the code here:

Code: Select all

q::
fileselected := Explorer_GetSelection()
SplitPath,fileselected,,dir
list=""
Loop, Files, %dir%\*.*
  list=%list%%A_LoopFileName%`n
clipboard=FileName:`n%list%
MsgBox %clipboard%
;MsgBox %list% 
return


Explorer_GetSelection(hwnd="") {
    WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
    WinGetClass class, ahk_id %hwnd%
    if (process = "explorer.exe")
        if (class ~= "Progman|WorkerW") {
            ControlGet, files, List, Selected Col1, SysListView321, ahk_class %class%
            Loop, Parse, files, `n, `r
                ToReturn .= A_Desktop "\" A_LoopField "`n"
        } else if (class ~= "(Cabinet|Explore)WClass") {
            for window in ComObjCreate("Shell.Application").Windows
                if (window.hwnd==hwnd)
                    sel := window.Document.SelectedItems
            for item in sel
                ToReturn .= item.path "`n"
        }
    return Trim(ToReturn,"`n")
}

[asad41163]

Hi Mr. poetbox
It has saved me a lot of time and effort
You are truly awesome
Great help, and a commendable initiative
THANK YOU very much

[asad41163]

Hi Mr. poetbox
I'm sorry
it's not work propably
it gaves me this Msg: