Jump to content
Fivewin Brasil

Dúvidas com ftp (Resolvido)


jaguiar

Recommended Posts

Olá pessoal.

Tenho duas dúvidas que pra voces deve ser bico:

Como apagar uma arquivo no disco de ftp? Fiz uma intranet em ftp e gostaria de apagar o arquivo após baixá-lo.

Como adicionar em um array alguns arquivos da área de ftp obedecendo uma certa máscara? Tipo um directory().

Caso alguém tenha uma dica, por favor, disponibiliza aí pra gente.

Grato

João Freire de Aguiar

Editado por - jaguiar on 19/06/2009 13:45:56

Link to comment
Share on other sites

Olá pessoal.

Tenho duas dúvidas que pra voces deve ser bico:

Como apagar uma arquivo no disco de ftp? Fiz uma intranet em ftp e gostaria de apagar o arquivo após baixá-lo.

Como adicionar em um array alguns arquivos da área de ftp obedecendo uma certa máscara? Tipo um directory().

Caso alguém tenha uma dica, por favor, disponibiliza aí pra gente.

Grato

João Freire de Aguiar

Editado por - jaguiar on 19/06/2009 13:45:56

Link to comment
Share on other sites

citação:

Olá pessoal.

Tenho duas dúvidas que pra voces deve ser bico:

Como apagar uma arquivo no disco de ftp? Fiz uma intranet em ftp e gostaria de apagar o arquivo após baixá-lo.

Como adicionar em um array alguns arquivos da área de ftp obedecendo uma certa máscara? Tipo um directory().

Caso alguém tenha uma dica, por favor, disponibiliza aí pra gente.

Grato

João Freire de Aguiar


id=quote>id=quote>

Olha se serve icon_smile_wink.gif

http://www.fivewin.com.br/exibedicas.asp?id=523

Vagner Wirts

VI Encontro está chegando icon_smile_big.gif, não perca icon_smile_big.gif

Link to comment
Share on other sites

Aí vai

oInternet := TInternet():New()

oFTP:= TFTP():New( "ftp.xxxxxxx.com.br", oInternet,"xxxxxxx.com.br",cSenha ) // Microsoft FTP

IF ! Empty( oFTP:hFTP )

cDir = "wwwroot/"+G_Cliente+"/*.*"

aFiles = oFTP:Directory( cDir )

Else

MsgStop( "Não existem arquivos no servidor" )

Return nil

Endif

For x = 1 To Len(aFiles)

cFile = afiles[x][1]

if SubStr(cFile,1,1) = "." ; Loop ; Endif

cSoma++

next

logo.gif

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...