Ernesto yo tengo esto que los subo a un ftp.
En tu programa "w_xxxx "te creas una PictureBoxListControl (tambien puedes usar el BoxListControl, pero yo queria iconos)
en el evento open del programa o la funcion de inicio que tengas le metes esto:
string s_filespec, s_path
integer li_pic1, li_pic2, li_position
Long ll_index,ll_titems
String ls_data
lb_filelist.reset()
s_filespec = "\\hp-webserver\linux\*.TXT" //de donde leas los archivos
s_path = "\\hp-webserver\linux\"
lb_filelist.DirList(s_filespec, 1 )
ll_titems = lb_filelist.TotalItems()
li_pic1 = plb_filelist.AddPicture("C:\Ges_Apl\tresource\GLOBE.BMP") //de donde leas las imagenes
li_pic2 = plb_filelist.AddPicture("C:\Ges_Apl\tresource\IE.BMP")
plb_filelist.AddItem(s_path, li_pic1)
For ll_index = 1 To ll_titems
ls_data[ll_index] = lb_filelist.Text(ll_index)
li_position = plb_filelist.AddItem(ls_data[ll_index], li_pic2)
Next
como ves esto lee los ficheros TXT en el directorio "\\hp-webserver\linux\"
en el evento selectionchange del PictureBoxListControl metes esto
string ls_filename, ls_path, ls_filespec = "*.TXT"
ls_path = "\\hp-webserver\linux\"
if plb_FileList.DirSelect(ls_filename) then
ls_filename = ls_filename + ls_filespec
plb_filelist.DirList(ls_filename,0)
else
sle_text.text = ls_path + ls_filename
end if
ya tienes el nombre del fichero con el path en el sle_text.text
ahora para subirlo a tu ftp puedes crear un button y en el evento onclick poner
integer li_FileNum
li_FileNum = FileCopy (sle_text.text ,"W:\xxx.txt", FALSE) //alsitio ftp
yo utilizo el software WebDrive es un gestor de ftp que para mi es bueno y puedes gestionar tus sitios ftp como unidades logicas.
Espero haberte ayudado.
Saludos
