PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → WD - Selecionar um ou Varios Arquivos
WD - Selecionar um ou Varios Arquivos
Iniciado por amarildo, 04,mar. 2015 13:20 - No hay respuesta
Miembro registrado
535 mensajes
Publicado el 04,marzo 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)