主题：怎么通过一个按钮同时上传多个文件呢？

一个循环遍历搞定：

Dim fls() as string = {"c:\data\acd.jpg","c:\data\acd2.jpg","c:\data\acd3.jpg"}

For each fl as String in Fls

     ftp1.Upload(fl,"/data/" & Filesys.getName(fl))

Next