|
|
Postada em 15/12/2004 03:43 hs
Ae galera naum to conseguindo fazer com que envia qualquer arquivo com a extencao .zip, o codigo e esse ai se e possivel fazer o que eu quero me ajudem por favor... Public Sub PutLocalFile()
On Error GoTo PutLocalFileErr
Dim RemoteFileName As String, cmd As String
RemoteFileName = "*.txt"
cmd = "PUT " & RemoteFileName & " " & "*.txt"
If inetReady(True) Then
Call SendCommand(cmd)
End If
Exit Sub
PutLocalFileErr:
MsgBox "Error: " & Err.Description
End Sub Agradecimentos antecipados |
|
|
|
|
|
|
|
Postada em 15/12/2004 08:13 hs
tah faltando o chr(34) cmd = "PUT " & chr(34) & RemoteFileName & chr(34) & " ,*.txt" coloca assim que vai funcionar. A propósito, se quiser tenho uma classe para ftp que é muito melhor que o inet. |
|
|
|
|
|
Postada em 15/12/2004 08:22 hs
tentei fazer como o amigo citou mas deu um erro erro123A sintaxe do nome do arquivo, pasta ou nome do volume esta incorreta. |
|
|
|
José Carlos
não registrado
|
|
Postada em 31/12/2024 13:14 hs
KerpLunk, vc tem disdponível aí esta classe para ftp ainda? Estou usando inet, mas passou a dar problema pra fazer upload e não estou conseguindo resolver.
|
|
|
|
