Передача экземпляра модуля класса

Question

Скажем, я создаю новый экземпляр модуля класса. В этом блоке экземпляра я вызываю другой sub, который вызывает функции в модуле класса. Как я могу это сделать? В настоящее время я не могу понять, как это делается. Ниже приведен обзор моего кода: (. .PutFile является метод в FTPClient)

... 
With New FTPClient 

    .ServerName = strServer 
    .UserName = strUserName 
    .Password = strPassword 
    .remoteDir = strRemoteFolder 
    .TransferType = "BINARY" 
    .OpenFTP 
    .OpenServer 

    Upload() 

    .CloseServer 
    .CloseFTP 

End With 
... 

Function Upload() 

    ... 
    .PutFile .remoteDir, currentFile, currentPath, "BINARY" 
    ... 

End Function 

. Очевидно, что он немного подойдет и не знает, что такое .PutFile или .remoteDir. Есть ли способ передать экземпляр FTPClient на номер Upload?

Спасибо,

Answer 1

Вам необходимо пройти его, если его контекстный в вызывающем коде:

set client = new FTPClient 
with client 
    .ServerName = strServer 
    ... 
    Upload(client) 


Function Upload(client as FTPClient) 
    with client 
     .PutFile .remoteDir, currentFile, currentPath, "BINARY"