Cómo escribir un transmisor de archivos FTP usando VFP

Un método simple para ejecutar comandos FTP en VFP Aunque el comando es simple, es muy poderoso. Desafortunadamente, todos están en el entorno ftp. Para los usuarios normales, no es realista utilizar el comando ftp. Por lo tanto, en vfp, es muy útil utilizar métodos de programación para ejecutar los comandos ftp necesarios. A continuación se muestra un fragmento de código que he estado usando durante mucho tiempo. Es muy práctico. Su función es cargar un archivo y usar el directorio de archivos ftp para determinar si la carga se realizó correctamente. En cuanto a otras cosas que hacer, simplemente siga este método y anótelo.

cFileName local,cDirName,cExpression

local strftpUserID, strftpPassWord, cUpFtpFileName, ftpIp

local owsh

cFileName = ruta completa(curdir( ))+'ftp.txt' && Genera un archivo que contiene el comando ftp

cDirName = fullpath(curdir())+'dir.txt' && Muestra el archivo del directorio de archivos del servidor ftp si file( cDirName)

eliminar archivo (cDirName)

endif

&& strftpUserID es el usuario de inicio de sesión del servidor ftp

cExpression = strftpUserID+chr( 13)+ chr(10) && nombre de usuario

STRTOFILE(cExpression, cFileName, .F.)

&& strftpPassWord es la contraseña de inicio de sesión del servidor ftp

cExpression = strftpPassWord+chr (13)+chr(10) && Contraseña

STRTOFILE(cExpression, cFileName, .T.)

&& cUpFtpFileName es el archivo que se va a cargar

cExpression = 'put '+cUpFtpFileName+'

'+JUSTFNAME(cUpFtpFileName)+chr(13)+chr(10) && Cargar archivo

STRTOFILE(cExpression, cFileName, .T.)

cExpression = 'mdir '+JUSTFNAME(cUpFtpFileName)+'

'+cDirName+chr(13)+chr(10) && devuelve el directorio de archivos cargado por el que regresa

STRTOFILE(cExpression, cFileName, .T.)

cExpression = 'y'+chr(13)+chr(10)

STRTOFILE( cExpression, cFileName, .T )

cExpression = 'adiós'+chr(13)+chr(10)

STRTOFILE(cExpression, cFileName, .T.)

&& ftpIp es la dirección IP del servidor ftp

owsh=createobject("wscript.shell")

if left(os(),10) == 'Windows NT' O os()='Windows 5.00'

owsh.run("cmd /c ftp -s:"+cFileName +" "+ftpIp,0,.T.) &&0 es el tipo de ventana de tiempo de ejecución, oculto, .T es el programa. Se detendrá después de la ejecución