主题：关于已经打开文件

执行下面代码，弹出什么？

Dim strLujingjian As String
Dim strDes As String
Dim ftp1 As new ftpclient
ftp1.host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
ftp1.UTF8 = True
msgbox(Vars("nStrName"))
strLujingjian = "D:\Download2\" & Vars("nStrName")
strDes = "\"& Vars("nStrName")
If ftp1.Upload(strLujingjian,strDes) = True Then
    MyTimers("计划1").Enabled = False
End If