NSIS Найти все.txt файлы

В настоящее время у меня есть проверка, чтобы найти все текстовые файлы в $INSTDIR, как показано ниже.

Однако потенциально могут быть подкаталоги, такие как $INSTDIR\mySub, которые содержат дополнительные файлы.txt. Есть ли способ сохранить подобную структуру цикла, но также выполнить поиск по всем подкаталогам?

FindFirst $R0 $R1 "$INSTDIR\*.txt"
IfErrors ExitInstaller 0
LoopIt:
  Messagebox MB_OK "Do some processing on $R1"
  FindNext $R0 $R1
  IfErrors 0 LoopIt

2 ответа

Решение
Function ProcessTextFiles
Exch $0
Push $1
Push $2
FindFirst $1 $2 "$0\*.txt"
loop:
    IfErrors end
    DetailPrint 'Found "$0\$2"'
    FindNext $1 $2
    goto loop
end:
FindClose $1
FindFirst $1 $2 "$0\*.*"
dirloop:
    IfErrors dirend 
    IfFileExists "$0\$2\*.*" 0 dirnext
    StrCmp $2 "." dirnext
    StrCmp $2 ".." dirnext
    Push "$0\$2"
    call ${__FUNCTION__}
dirnext:
    FindNext $1 $2
    goto dirloop
dirend:
FindClose $1
Pop $2
Pop $1
Pop $0
FunctionEnd

section
push "$InstDir"
call ProcessTextFiles
sectionend

Попробуйте использовать Locate функция вместо этого - это может быть гораздо лучшим решением. Вы можете написать опции для поиска с (или без) подкаталогами, определить маску и так далее. См. http://nsis.sourceforge.net/Locate для документации и примеров.

Другие вопросы по тегам