vb.net文件上传控件 vb上传文件到服务器

跪求在visual studio2005下用脚本任务vb.net实现上传文件至FTP功能（应用变量）

Const SYNCHRONIZE = H100000

Const INFINITE = HFFFFFFFF

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()

Dim filename As String

Dim ftp As String

Dim uname As String

Dim upin As String

ftp = InputBox("请输入服务器地址")

uname = InputBox("请输入帐号", , "anonymous")

upin = InputBox("请输入密码", , "IE@User")

filename = Timer()

Open filename  ".script" For Output As #1

    Print #1, "user"

    Print #1, uname

    Print #1, upin

    Print #1, "pwd"

    Print #1, "hash"

    Print #1, "put "  filename  ".txt"

    Print #1, "quit"

Close #1

Open filename  ".txt" For Output As #1

    Print #1, Text1.Text

    Print #1, Combo1.Text

Close #1

DoEvents

Dim pId As Long, pHnd As Long

pId = Shell("ftp -n -s:"  filename  ".script"  " "  ftp, vbHide)

pHnd = OpenProcess(SYNCHRONIZE, 0, pId)

If pHnd  0 Then

Call WaitForSingleObject(pHnd, INFINITE)

Call CloseHandle(pHnd)

End If

Kill filename  ".script"

End Sub

如果你觉得可以，把100分给我吧

我的方法很另类，给你说说过程

为了不重复文件名，我取时间为文件名filename

生成filename.script脚本，传输FTP用

生成filename.txt保存了combo1和text1的文字

调用ftp命令传输，不需要inet或winsock控件

API是SHELL WAIT功能，因为script脚本保存了帐号和密码，当传输完成后删除filename.script脚本

觉得如何，如果用inet不如这个简单，毕竟FTP不是自己写的，不管PASV与否都正常使用，唯一就是密码保存要等传输完成

你想的第一个方案是不可能的，FTP是文本传输协议，与HTTP不一样，不能写POST，实在想那样，VB做不了，需要手动创建数据包欺骗服务器

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: 在此处添加打开文件vb.net文件上传控件的代码。

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的Internet Transfer控件往FTP服务器上上传文件，有时成功，有时不成功，请指点。

我用VB编写的FTP上传下载程序一直没问题。

最好多深入学习一下。

vb.net 实例下载

利用VB.NET向服务器上传文件

文件上传技术是一个很实用的技术vb.net文件上传控件，有着很广泛的应用，在ASP.NET自身的前一个版本ASP里实现这个功能，就必须使用第三方的组件或者自己开发组件vb.net文件上传控件了，现在，用ASP.NET实现起来就简单得多了，不需要使用任何组件就可以实现上传的功能了。

为了方便理解，可以把文件上传分成两种类型：单一文件上传和多文件上传。

单一文件上传

首先单一文件上传的方法，单一文件上传就比较简单了，

下面是实现单一文件上传的完整代码：

%@ Import Namespace="System" %

%@ Import Namespace="System.Web.HttpPostedFile" %

%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %

script language="VB" runat="server"

Sub UpLoad(Src As Object, E As EventArgs)

If UploadFile.PostedFile.ContentLength=0 then

ShowUpLoadFile.innerText="上传失败或文件不存在vb.net文件上传控件！"

Else

''''获取文件名

dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")

dim FileName as String=Temp(Temp.Length-1)

''''保存文件

UploadFile.PostedFile.SaveAs(Server.MapPath(".") "\Files\" FileName)

''''显示上传结果

ShowUpLoadFile.InnerHtml="文件上传成功！br上传文件名：" FileName

End If

End Sub

/script

html

body

form runat="server" enctype="multipart/form-data"

input type="file" id="UploadFile" runat="server" size="50"br

asp:button runat="server" Text="立即上传" onClick="Upload" /

/form

hrbr

span id="ShowUpLoadFile" runat="server"/span

/body

/html

把上面的代码保存成.aspx文件，然后在该文件所在目录下创建一个存放文件的新目录Files，运行，先感受一下效果，然后再继续看下面的讲解

使用ASP.NET上传文件，需要用到.NET框架的两个类：HttpPostedFile和HtmlInputFile，这两个类所在的命名空间分别是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我们要在文件开头先导入这两个命名空间，

其中的PostedFile表示上传到服务器的文件，它包含几个常用的属性：

ContentLength:文件大小；

FileName :上传文件的详细路径及文件名；

ContentType :上传文件的文件类型。

字符分割函数Split是用来取得文件名的，因为通过PostedFile.FileName获得的是详细的路径及文件名。

多文件上传

所谓的多文件上传就是同时上传多个文件，这个跟单一文件上传大多是相同的，不同的是多文件上传是把所有文件作为一个文件集合一起上传到服务器的，我们需要的是把这个文件集合分解成一个个单一的文件，剩下的处理方法就跟单一文件上传一样了。

首先要知道要最多同时上传多少个文件，然后就在form之间放多少个如下的HtmlInput控件：

input type="file" runat="server" size="50"

注意：这里的HtmlInput控件控件是不需要设置ID的

那如何在上传到服务器的文件集合中取出一个个的文件vb.net文件上传控件？看下面的代码：

dim i as integer

For i=0 to Request.Files.Count-1

‘使用Request.Files()来逐个获取上传的文件

dim myFile as HttpPostedFile=Request.Files(i)

''''这里的myFile就相当于上例中的PostedFile，可以用myFile.FileName获得文件名，etc

''''这里的处理代码就跟单一文件上传的一样了

Next

现在掌握了ASP.NET文件上传技术了

vb.net 提交上传文件

My.Computer.Network.UploadFile(上传vb.net文件上传控件的文件,vb.net文件上传控件你vb.net文件上传控件的html/php文件)

VB.net 读取文本文件？

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

vb.net文件上传控件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb上传文件到服务器、vb.net文件上传控件的信息别忘了在本站进行查找喔。