主题：上传一个文件夹里的一个不固定名的文件

各位老师晚上好，我碰到了一个问题：

我想实现点击【上传】按钮，如果d:\上传的文件\  这个文件里有文件，则将此文件上传到ftp指定的位置，然后删除。

我知道用文件监视器的方法：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "ckabc"
ftp1.Password = "12345678"
ftp1.Port = "21"
If ftp1.Upload(e.FullPath,"\rjsytdhly\" & e.Name) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

以及上传指定文件 的方法

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

但是像这种点击按钮上传不指定文件名的文件   不懂得做。。。

哈，看到这里搞定啦：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32242&skin=0