Sub Example_PutRemoteFile()
    'Этот пример передает местный файл отдаленному URL. Так как этот 
    'пример полагается и на отдаленное имя сервера и на местный файл, 
    'Вы должны будете изменить и DestURL и переменные LocalFile ниже, 
    'чтобы выполнить этот пример.
    
    Dim DestURL As String, LocalFile As String
    
    'Определите источник и адресата
    DestURL = "ftp://www.myserver.com/autocadfiles/"
    LocalFile = "c:\program files\autocad\sample\city map.dwg"
    
    'Передайте местный файл отдаленному местоположению
    ThisDrawing.Utility.PutRemoteFile DestURL, LocalFile
    
    MsgBox LocalFile & " был передан: " & DestURL
End Sub