PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → WD - Selecionar um ou Varios Arquivos
WD - Selecionar um ou Varios Arquivos
Started by amarildo, Mar., 04 2015 1:20 PM - No answer
Registered member
535 messages
Posted on March, 04 2015 - 1:20 PM
http://windevdesenvolvimento.blogspot.com.br/2015/03/windev-fselect-selecionar-arquivos.html

Nesse blog e video mostro como selecionar um ou varios arquivos

// Selecione um Arquivo

_Seleciona_Arquivo is string
_Seleciona_Arquivo = fSelect("E:\amarildo\", "*.*", ...
"Selecione Um Arquivo", ...
"Imagens (*.png)" + TAB + "*.png" + CR + "All" + TAB + "*.*", ".png")
EDT_arquivo=_Seleciona_Arquivo

// fSelect
// Abre o Selecionador de Arquivos

// Selecione Varios Arquivos
_Seleciona_Arquivo is string
_Seleciona_Arquivo = fSelect("E:\amarildo\", "*.*", ...
"Selecione Um Arquivo", ...
"Imagens (*.png)" + TAB + "*.png" + CR + "All" + TAB + "*.*", ".png", ...
fselMulti)
_adicionar_cada_arquivo is string
_contador is int = 1
TableDeleteAll(TABLE_arquivos_Selecionados)
_adicionar_cada_arquivo = ExtractString(_Seleciona_Arquivo,_contador,CR)
WHILE _adicionar_cada_arquivo<>EOT
TableAddLine(TABLE_arquivos_Selecionados,_adicionar_cada_arquivo)
_contador++
_adicionar_cada_arquivo = ExtractString(_Seleciona_Arquivo,_contador,CR)
END
TableDisplay(TABLE_arquivos_Selecionados)