Enviar archiovo a una dirección URL

Enviar archiovo a una dirección URL

Postby Armando » Thu Jan 25, 2018 7:43 pm

Hola Amigos:

con el siguiente código de VB se envía un archivo (fichero) a una dirección URL
Code: Select all  Expand view

My.Computer.FileSystem.CopyFile("Ready/RYS01J-" + txtFolio.Text + ".txt", "\\10.25.60.8\Intermedios\RYS01J-" + txtFolio.Text + cont.ToString + ".txt", True)
 


Con que código de Harbour/FWH puedo hacer lo mismo????
Algún hilo por donde deba yo tirar?

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Enviar archiovo a una dirección URL

Postby nageswaragunupudi » Thu Jan 25, 2018 11:54 pm

This is how to use filesystem in (x)Harbour
Code: Select all  Expand view
oFs   := CreateObject( "Scripting.FileSystemObject" )
oFs:CopyFile( cSource, cDestination )
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10207
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Enviar archiovo a una dirección URL

Postby Armando » Fri Jan 26, 2018 12:56 am

Mr. Rao:

Thanks a lot, I'll try your sample.

Regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 7 guests