PutRemoteFile Example

Using Programming Languages other than VBA

Sub Example_PutRemoteFile()
	' This example transfers a local file to a remote URL.  Since this example
	' relies on both a remote server name and a local file, you will have to
	' modify both the DestURL and LocalFile variables below to run this example.

	Dim DestURL As String, LocalFile As String

	' Define source and destination
	DestURL = "ftp://www.myserver.com/autocadfiles/"
	LocalFile = "c:\program files\autocad\sample\city map.dwg"

	' Transfer local file to remote location
	ThisDrawing.Utility.PutRemoteFile DestURL, LocalFile

	MsgBox LocalFile & " was just transfered to: " & DestURL
End Sub