• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

xlo620

Upload/Download ficheiro por ftp

10 mensagens neste tópico

Boas. Estou a tentar desenvolver uma aplicaçao para pocketPC para carregar ou descarregar ficheiros a partir do meu servidor ftp.. so encontro o sample da microsoft em c++, mas isso para mim é 0  :) alguem me pode ajudar para vb.net?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

se não estou enganado, mais abaixo, encontravas um tópico igual  :)


'Upload
My.Computer.Network.UploadFile(caminho & "\ficheiro.txt", "ftp://site.com/ficheiro.txt", "user", "pass")

'Download
My.Computer.Network.DownloadFile("http://site.com/ficheiro.txt", caminhodesejado & "\ficheiro.txt")

boa sorte no projecto !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sorry,  :)  pensei que fosse dar ao mesmo.

Mas tens razão, não se encontra grande coisa sobre isso.

Já encontrei um código, mas dizem que está mal.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Encontrei este código, vê se consegues fazer algo a partir disso.

'Ligar ao servidor

Dim lResult As Integer
Dim lPassive As Integer
Dim lTimeOut As Integer

If MsgBox("Connect in Passive mode?", vbYesNo, "FTP Explorer") = vbYes Then
  lPassive = 1
Else
  lPassive = 0
End If

lTimeOut = 10000 'Timeout in milliseconds
lResult = sFTPOpen(“ftp.server.com”, 21, “user”, “password”, lPassive, lTimeOut, FTPLicence)
If lResult <> FTP_NO_ERROR Then
  MsgBox("Unable to connect to server" & vbNewLine & vbNewLine & "Error: " & GetFTPError(lResult), vbOKOnly + vbExclamation, "FTP Explorer")
Else
  MsgBox("Connect to server", vbOkOnly, "FTP Explorer")
End If



'Upload

lBytes = 0
lResult = sFTPPushStart("\My Documents\File.zip", "RemoteFile.zip", FTP_TRANSFER_BINARY, FTPLicence)
If lResult <> FTP_NO_ERROR Then
  MsgBox("Unable to upload file" & vbNewLine & vbNewLine & "Error: " & GetFTPError(lResult), vbOKOnly + vbExclamation, "FTP Explorer")
Else
  Do
    lResult = sFTPPushMore()
    lBytes = lBytes + 1
    If (lBytes Mod 10 = 0) Then
      lblProgress.Text = "Uploaded " & lBytes & "K of File.zip"
      lblProgress.Update()
    End If
  Loop While (lResult = 0)
  If lResult <> 100 Then
    MsgBox("File upload not completed" & vbNewLine & vbNewLine & "Error: " & GetFTPError(lResult), vbOKOnly + vbExclamation, "FTP Explorer")
  End If

  lResult = sFTPPushEnd()

  If lResult <> FTP_NO_ERROR Then
    MsgBox("Unable to close files" & vbNewLine & vbNewLine & "Error: " & GetFTPError(lResult), vbOKOnly + vbExclamation, "FTP Explorer")
  End If
End If



'Desligar do Servidor

Dim lResult As Integer
lResult = sFTPClose(FTPLicence)
If lResult <> FTP_NO_ERROR Then
  MsgBox("Unable to close connection" & vbNewLine & vbNewLine & "Error: " & GetFTPError(lResult), vbOKOnly + vbExclamation, "FTP Explorer")
Else
  MsgBox("Disconnected", vbOkOnly, "FTP Explorer")
End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim ja tinha encontrado isso, mas obrigado. nao estou é a conseguir adicionar a dll :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa não ter ajudado grande coisa, mas ao principio pensava que ao ser vb.net era igual no pocket pc, como no pc  :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa não ter ajudado grande coisa, mas ao principio pensava que ao ser vb.net era igual no pocket pc, como no pc  :D

poh! tambem eu :S obrigadao na msm :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora