Gets all the files in the folder shortcut

[Davider]

Hi,

When I selected some files, folders, and some shortcuts：
The following code, In most cases, works, but it does not get the files in the subfolders in the folder shortcut
How to solve it？

Thanks in advance for any advice and help
david

Macro Macro3
Trigger Aq     

Code:

Copy      Help

_s.setclip
key Cc
ARRAY(str) a
if(GetClipboardFiles(a))
,str s ss=a
,foreach s ss
,,SHORTCUTINFO si ;;shortcut
,,if GetShortcutInfoEx(s si)
,,,s=si.target
,,if(dir(s 1)) ;;folder
,,,s+"\*"
,,,Dir d
,,,foreach(d s FE_Dir)
,,,,str sPath=d.FileName(1)
,,,,_s.addline(sPath 1)
,,else ;;file
,,,_s.addline(s 1)
,mes _s

[Kevin]

use flag 4 with FE_Dir

Code:

Copy      Help

foreach(d s FE_Dir 4)

[Davider]

thank you so much