详见vb.net文件传输 vbnet读写文件

vb.net ftp上传文件

Dim OpenFileDialog As New OpenFileDialog

专注于为中小企业提供成都做网站、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业涞水免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此处添加打开文件的代码。

textbox1.Text = FileName

End If

第一个按钮 上传

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)

第二个按钮

求大神指点 vb.net 怎么发送大文件 我用 UdpClient 的Send只能发送5000字节以下的

下载，直接通过url读取文件，然后Response.OutputStream.Write()数据

下面提供个下载的静态方法，是C#的，供参考：

/// summary

/// 下载文件

/// /summary

/// param name="fileName"下载的文件名称（包括扩展名）/param

/// param name="filePath"下载文件的绝对路径/param

public static void DownFile(string fileName, string filePath)

{

//打开要下载的文件，并把该文件存放在FileStream中                

System.IO.FileStream Reader = System.IO.File.OpenRead(filePath);

//文件传送的剩余字节数：初始值为文件的总大小                

long Length = Reader.Length;

HttpContext.Current.Response.Buffer = false;

HttpContext.Current.Response.AddHeader("Connection", "Keep-Alive");

HttpContext.Current.Response.ContentType = "application/octet-stream";

HttpContext.Current.Response.Charset = "utf-8";

HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment; filename=" + System.Web.HttpUtility.UrlEncode(fileName));

HttpContext.Current.Response.AddHeader("Content-Length", Length.ToString());

byte[] Buffer = new Byte[10000];//存放欲发送数据的缓冲区                

int ByteToRead; //每次实际读取的字节数               

while (Length  0)

{    

//剩余字节数不为零，继续传送                    

if (HttpContext.Current.Response.IsClientConnected)

{    

//客户端浏览器还打开着，继续传送                        

ByteToRead = Reader.Read(Buffer, 0, 10000);                   //往缓冲区读入数据                        

HttpContext.Current.Response.OutputStream.Write(Buffer, 0, ByteToRead);    

//把缓冲区的数据写入客户端浏览器                        

HttpContext.Current.Response.Flush(); //立即写入客户端                        

Length -= ByteToRead;//剩余字节数减少                            }

else

{                         

//客户端浏览器已经断开，阻止继续循环                        

Length = -1;

}

}                //关闭该文件               

Reader.Close();

}

vb.net怎么在两个sub间传递数据？

方法一: 通过WINSOCK传 方法二: 程序一生成一文件,然后程序二读取 方法三: 利用数据库存取这个是调用自制DLL示例,至于用ActiveX EXE,你可以参考一下,关键是留接口给另一程序 VB制作标准DLL文件并调用该文件的示例 1、建立一个ActiveX DLL工程，这时工程中将包括一个类模块Class1。 2、在ActiveX DLL工程中添加一个Form。 3、在类模块添加如下函数： Public Function ShowMyForm(s As String) Form1.Caption = s Form1.Show vbModal End Function 4、将工程编译为DLL。 调用时: 1、建立一个标准EXE，在菜单“工程|引用”中选择前面编译的DLL。 2、使用如下代码调用： Private Sub Form_Click() Dim cls As New Class1 cls.ShowMyForm("Hello") End Sub