e参数属性:
Name: 触发事件的文件名,不含路径。FullPath:触发事件的文件名,含路径。
If ftp1.Upload(e.FullPath,"\suibianxie\web\lyc\" & e.Name) = True Then