主题：图片上传后怎么删除本地文件？

Dim ftp1 As New FtpClient
ftp1.Host="tang.net"
ftp1.Account = "ftp1"
ftp1.Password = "111"

For Each File As String In FileSys.GetFiles("\\Pc-server\图片\图片1")
   ftp1.upload(file, "/" & Filesys.getname(file),True)
Next
If     Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

再这段代码后面加上一个代码，图片上传完成后删除所有图片文件。该怎么写呢？谢谢