PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WD - Selecionar um ou Varios Arquivos
WD - Selecionar um ou Varios Arquivos
Iniciado por amarildo, mar., 04 2015 1:20 PM - Sem resposta
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em março, 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)