主题：ftp上传及如何回传信息到新增table表中指定字段

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

蓝总：1、上面上传代码是指定的地址文件，能不能弹出本地自定义路径，可自行选择任意位置文件进行上传？

2、上传文件成功后，怎么把文件名、路径、后缀、大小等信息回传到新增表的字段里，以便能点击table表自动下载打开ftp中的文件？