帮我的ftp程序添加定时自动下载功能100分求救

Question

帮我的ftp程序添加自动下载功能，我有一个ftp下载程序，现想增加一个功能，就是每隔10分钟检查服务器上有没有新文件（txt文件），如果有则自动下载，留下你的邮箱，我给你发过去，修改好了，给我，谢谢！！！！

Answer 1

[email protected]
帮你看看.

Answer 2

谢谢 planetike(阿胜) ,我发到你邮箱了,请查收

Answer 3

在程序启动时用dir列出服务器上的所有文件，并添加到词典中，用timer控件计时，每隔10分钟，用dir列一次，并判断文件是否存在于词典中，如果不存在，则添加到词典，并下载之。其中，用timer计时10分钟可这样：
Dim i As LongPrivate Sub Form_Load()
    Me.Timer1.Interval = 1000
    Me.Enabled = True
End SubPrivate Sub Timer1_Timer()
    i = i + 1
    If i >= 600 Then
        i = 0
        '加入具体的语句,执行时间不宜过长，如果操作时间比较长的话，应该修改timer控件的Interval属性值，让它大一些，当然i的值要相应改变        
    End If
End Sub
加入词典要引用 Microsoft Scripting Runtime对象，其中加入词典用add语句，判断指定元素是否存在用 Exists函数至于下载，你应该没有问题吧

Answer 4

[email protected]
谢谢
互相学习