vb.net如何上传文件

MyComputerNetworkUploadFile
比如上传到FTP
MyComputerNetworkUploadFile("d:\1txt", "ftp://xxxxxxxxxxxx/1txt“, "FTP账号", "FTP密码", True, 100)
新手路过。

数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。 1、打开数据表 通过以下语句打开数据表： dim office_rst As New ADODBRecordset adoconCursorLocation = adUseClient office_rstOpen "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable 2、添加新记录并上传文件 假定通过一些 *** 作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下： dim adofld As ADODBField, DataArr() As Byte, filelen As Long, file_num As Long office_rstAddNew Set adofld = office_rst("office") adorst("filename")Value = filePath file_num = FreeFile '返回一个 Integer，代表下一个可供Open语句使用的文件号 Open filePath For Binary Access Read As file_num '打开磁盘文件 filelen = LOF(file_num) '求文件长度 ReDim DataArr(filelen) '根据文件长度定义动态数组大小 Get sourcefile, , DataArr '将一个已打开的磁盘文件读入数组变量之中 adofldAppendChunk DataArr() '将数组内容存入image型字段中 Close file_num '关闭磁盘文件 adorstupdate 其中的filename为表office中的一个string型字段，用于存储档案文件的名称。

---