先给你上你想要的效果例子,里面有详细的代码说明.
代码说明:
MyTimers("计划1").Enabled = True '开始执行计划,获得FTP目录 赋值给Vars变量,Vars变量可以临时添加的
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.OpenManager '打开FTP文件管理器
ftp1.close
msgbox("修改的路径是: " & vars("路径"))
Tables("表A").Current("选择目录") = vars("路径") '赋值给表A 当前行
Tables("表A").Current.Save
e.Form.Controls("Label2").text = vars("路径")
MyTimers("计划1").Enabled = False
Dim frm = Windows.Forms.Form.ActiveForm '这是取活动窗口,也就是FTP文件管理器的窗口(活动窗口只有一个,要么就没有),不是先打开的那个窗口
If frm IsNot Nothing Then
If frm.Name = "Class234" Then ‘"Class234"这个名字可以查看活动窗口的Name
vars("路径") = frm.Controls("cmbFTPPath").Text 'cmbFTPPath 是FTP文件管理器窗口的路径那个文本框
End If
End If
下面的例子是查看FTP文件管理器窗口的名称及这个窗口中的所有控件名称:
[此贴子已经被作者于2015/4/3 23:42:03编辑过]