Histórico da Página

user function Exemplo ()
  Local aFontes := nil
  Local tFontes := 0
  Local nI := 0

  // Teste 1 - Retorna todos arquivos com extensão .png
  aFontes := GetResArray("*.png")
  tFontes = len(aFontes)
  if tFontes > 0
    for nI := 1 to tFontes
      conout("Fonte ["+aFontes[nI]+"] encontrado!")
    next
    MsgInfo("Fontes encontrados. Verifique no console.","Resultado")
  else
    MsgInfo("Nenhum fonte encontrado.","Resultado")
  endif
  
  // Teste 2 - Retorna todos arquivos com extensão formada por 3 letras onde a terceira é "g".
  // Ex: png e jpg
  aFontes := GetResArray("*.??g")
  tFontes = len(aFontes)
  if tFontes > 0
    for nI := 1 to tFontes
      conout("Fonte ["+aFontes[nI]+"] encontrado!")
    next
    MsgInfo("Fontes encontrados. Verifique no console.","Resultado")
  else
    MsgInfo("Nenhum fonte encontrado.","Resultado")
  endif
Return