PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WD - Selecionar um ou Varios Arquivos
WD - Selecionar um ou Varios Arquivos
Débuté par amarildo, 04 mar. 2015 13:20 - Aucune réponse
Membre enregistré
535 messages
Posté le 04 mars 2015 - 13:20
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)