PutFile (NotesFTP Script Library)

HCL Domino Domino Forum
1

Hello EveryBody!

I have this code…

Dim object As NotesEmbeddedObject

'…set value of doc…

Set object = doc.GetAttachment( "upload.zip" )		

With objFTP

	.Connect "ftp.gaseador.com", "login", "pass", 0

	If objFTP.IsConnected Then

		Print "CONNECTED!"

		.ChangeDirectory "Intranet"

		Print .CurrentDirectory

	End If

	.PutFile object.Name , object.Name , FTP_TRANSFER_TYPE_ASCII

			.Disconnect			

End With

But On Web I get this message … "Could not upload file to host. "

Anybody knows why I have this problem?

THANK YOU VERY MUCH!

2

Subject: PutFile (NotesFTP Script Library)

Your problem here is that you’re trying to upload an attachment from a document directly to a FTP server. You can’t do that. You need to save the attachment to disk, and then upload to FTP from disk. When the upload has finished, you can delete the file from disk.

/Peter

3

Subject: RE: PutFile (NotesFTP Script Library)

Hello, Thank you so much.But When you say, save to the disk, you are meaning that i have to save de attachment on the server?

Do you have any example for do that?

Thank you again.

4

Subject: RE: PutFile (NotesFTP Script Library)

Check in designer help for:Call notesEmbeddedObject.ExtractFile( path$ )

/Peter