主题：请教上传目录下所有图片的方法

发现程序有更新，请教上传目录下所有图片的方法

例如我想把 f:图片  下的所有图片，都上传到  www.bbc.net 的pic目录下 该怎么写代码呢？ 自己试过好像不好用啊？

Dim ftp1 As New FtpClient
ftp1.Host="www.bbc.net
ftp1.Account = "ftp2"
ftp1.Password = "2222"
If ftp1.Upload("f:\图片","\upfile1\pic") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)