BlackTDN Search

sábado, 5 de novembro de 2011

Protheus :: Advpl :: Dica Resources por Sergio E. S. Souza

Sergio E. S. Souza

Fala иαldσ,

estava lendo esse seu post sobre 'resources do repositório' e bolei uma solução simples para obter todas as imagens do rpo para uma pasta executando-a no campo formulas!

Caso julgue interessante adicione ao post.

1ª Opção:

Cria uma pasta predefinida e salva instantaneamente as imagens no drive de instalação do SO.

MakeDir(cDir:=Left(GetTempPath(.T.),3)+cVersao+'_IMG\'),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

2ª Opção:

Permite a seleção da pasta e salva instantaneamente as imagens.

cDir:=cGetFile("Pastas|*","Salvar",,,.F.,176),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

Ficadica!

Abs,

Sergio E. S. Souza

Nenhum comentário:

Postar um comentário