Listar Imagens 0.4b

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <String.au3>

Global $pastaRaiz = @ScriptDir
Global $proXpastaDaBuscaAtual
$ListadePastas = _FileListToArray($pastaRaiz, "*", $FLTA_FOLDERS)

For $i=1 To $ListadePastas[0]
;~    buscando imagens nas pastas encontradas
      Global $pastaDaBuscaAtual = @ScriptDir & '\' & $ListadePastas[$i]

;~    cria um link para proxima pasta na lista de pastas
      $r = $i+1
      If $r > $ListadePastas[0] Then
            $proXpastaDaBuscaAtual = @ScriptDir & '\' & $ListadePastas[$i]
      Else
            $proXpastaDaBuscaAtual = @ScriptDir & '\' & $ListadePastas[$r]
      EndIf
;~    ConsoleWrite('!Buscando Imagem na Pasta: ' & $pastaDaBuscaAtual & @CRLF)

;~    lista as imagens encontradas na pasta
         ConsoleWrite($pastaDaBuscaAtual & @CRLF)
      Global $ListaDeImagensAtual = _FileListToArrayRec($pastaDaBuscaAtual, "*.jpg;*.png;*.jfif", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT,$FLTAR_NOPATH)
      ConsoleWrite(_criarListaParaConsole($ListaDeImagensAtual) & @CRLF)

;~    cria o HTML com a galeria de imagens
      escreverHtml($ListaDeImagensAtual, $pastaDaBuscaAtual)
Next


Func escreverHtml($ListaDeImagensAtual, $EndDaPasta)
;~    cria um html dentro da pastacom as imagens
   $caminhoDoHtml = $pastaDaBuscaAtual & '\' & LastElement($EndDaPasta) & ".html"

   $GaleriaDentroPasta = FileOpen($caminhoDoHtml, $FO_OVERWRITE)

   ;~ escreve o cabeçalho do arquivo html
      FileWrite($caminhoDoHtml, "<!DOCTYPE html><html lang='pt-br'><head><meta charset='utf-8'/><meta content='width=device-width, initial-scale=1, maximum-scale=1' name='viewport'>" & @CRLF & '<title>' & LastElement($EndDaPasta) & '</title>')

   ;~ escreve a linha com o css
      FileWrite($caminhoDoHtml, "<style type='text/css'> /*! normalize.css v8.0.1 | MIT License | github.com/necolas/normalize.css */button,hr,input{overflow:visible}progress,sub,sup{vertical-align:baseline}[type=checkbox],[type=radio],legend{box-sizing:border-box;padding:0}html{line-height:1.15;-webkit-text-size-adjust:100%}body{margin:0; width:100%}details,main{display:block}h1{font-size:2em;margin:.67em 0}hr{box-sizing:content-box;height:0}code,kbd,pre,samp{font-family:monospace,monospace;font-size:1em}a{background-color:transparent}abbr[title]{border-bottom:none;text-decoration:underline;text-decoration:underline dotted}b,strong{font-weight:bolder}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative}sub{bottom:-.25em}sup{top:-.5em}img{border-style:none}button,input,optgroup,select,textarea{font-family:inherit;font-size:100%;line-height:1.15;margin:0}button,select{text-transform:none}[type=button],[type=reset],[type=submit],button{-webkit-appearance:button}[type=button]::-moz-focus-inner,[type=reset]::-moz-focus-inner,[type=submit]::-moz-focus-inner,button::-moz-focus-inner{border-style:none;padding:0}[type=button]:-moz-focusring,[type=reset]:-moz-focusring,[type=submit]:-moz-focusring,button:-moz-focusring{outline:ButtonText dotted 1px}fieldset{padding:.35em .75em .625em}legend{color:inherit;display:table;max-width:100%;white-space:normal}textarea{overflow:auto}[type=number]::-webkit-inner-spin-button,[type=number]::-webkit-outer-spin-button{height:auto}[type=search]{-webkit-appearance:textfield;outline-offset:-2px}[type=search]::-webkit-search-decoration{-webkit-appearance:none}::-webkit-file-upload-button{-webkit-appearance:button;font:inherit}summary{display:list-item}[hidden],template{display:none}.btn a:link,a:visited{background-color:#f44336;color:#fff;padding:14px 25px;text-align:center;text-decoration:none;display:inline-block}.btn a:hover,a:active{background-color:red}" & @CRLF & '</style>' & @CRLF & '</head><body>' & '<center><h1>' & LastElement($EndDaPasta) & '</h1>')

   ;faz um loop pela lista de imagens e coloca no html
   For $y=1 To $ListaDeImagensAtual[0]
      FileWrite($caminhoDoHtml, "<img class='' src='" & $ListaDeImagensAtual[$y] & "' width='800'>" & @CRLF)
   Next
FileWrite($caminhoDoHtml, "<br><p class='btn'> <a class='' href='..\" & LastElement($proXpastaDaBuscaAtual) & "\" & LastElement($proXpastaDaBuscaAtual) & ".html'>" &  LastElement($proXpastaDaBuscaAtual) & "</a></p>" & @CRLF)
FileWrite($caminhoDoHtml, "</center></head><body>")
EndFunc

Func LastElement($lst)
   $aArray1 = _StringExplode($lst, "\", 0)
   Return $aArray1[UBound($aArray1)-1]
EndFunc


;~ função mostrar array em forma de lista
Func _criarListaParaConsole($CLPC)
Local $quant = UBound($CLPC)-1
Return _ArrayToString($CLPC, ', ', 1, $quant)
EndFunc