Validar una Carpeta en Un Servidor de Internet

[JoseAlvarez]

Estimados amigos del foro.

Quisiera que alguien me ayudara en lo siguiente:
Debo subir unas imagenes a una determinada carpeta en un servidor de internet, pero para ello quiero que en el modulo de configuracion de parametros al igual que le indico el host, el usuario y la contraseña tambien quisiera indicarle el nombre de la carpeta donde se guardaran las imagenes y al momento de que el usuario haga click en "probar conexion" el programa de FW verifique si los parametros de conexion estan correctos y se establece la misma, pero que a la vez verifique si existe la carpeta. Ya tengo todo listo en lo que respecta a hacer la conexion con el servidor via internet, subir y/o bajar la imágenes. Pero no he dado con la manera de que si la carpeta no ha sido creada previamente en el server, el programa avise "La carpeta de imagenes no ha sido creada" y no permita grabar los datos de conexion hasta que la carpeta que hospedara las imagenes sea creada por el administrador en el servidor.

Gracias anticipadas por la ayuda que tengan a bien hacerme llegar.

Saludos.

[AngelSalom]

Yo lo que hago es intentar enviar un fichero de prueba :

Code: Select all  Expand view

oInternet := TInternet():New()
oFTP      := TFTP():New( Alltrim(cFTPServidor), oInternet, cFTPUsuario,cFtpClave,nFTPPuerto,Iif(nFtpModo==1,.T.,.F.))  // nFtpModo (activo,pasivo)
cFichero:= cFtpRuta+"/pruebaftp.txt"

If ! Empty( oFTP:hFTP )
  FtpSendFiles ({"Pruebaftp.txt"},{cFichero},oFtp)
  aFiles = oFTP:Directory( cFichero )
  If aScan(aFiles,{|aVal| At("pruebaftp.txt",aVal[1])<>0})<>0
    oFtp: DeleteFile( cFichero ) // Borro fichero de prueba
    MsgInfo("Conexión Correcta.","Resultado")
  Endif
Endif

oInternet:End()
 

[JoseAlvarez]

Excelente Angel !

Muchísimas Gracias..
Adapté el código que me diste y funcionó perfecto. Una idea ingeniosa.

Agradecido