VB中如何实现上传文件的功能?

用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。

代码如下：

'定义API函数

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() '取时间为文件名filename

Open filename & ".script" For Output As #1 '生成filename.script脚本，传输FTP用

    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 '生成的filename.txt保存了combo1和text1的文字

    Print #1, Text1.Text

    Print #1, Combo1.Text

Close #1

DoEvents

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

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" '因为漏神script脚本保存了帐号和密码，当传输完成后删除filename.script脚本

End Sub

做一个上传文件的功能，

1. GJM字段存放文件；文件与文件之间以/分隔开

2. 可上传多个文件；蔽桥

实现：

1. 需要宏启猛一个文本框控件：记录待上传文件的路径；

2. 一个上传附件按钮：能打开，选择要上传的文件；

3. 一个OpenDialog控件，能打开硬盘；

4. 一个ListBox控件，记录多个待旁闹上传文件的文件名；

5. 一个TidFtp控件，用于上传文件；

 

下面为大家介绍在ExtJs中上传文件的几种方法

第漏嫌滑一种方法：传统的上传方式

在formpanal中增加一个fileUpload的属性

例子代码：

JScript 代码 复制

Ext.onReady(function(){

var form = new Ext.form.FormPanel({

renderTo:'file',

labelAlign: 'right',

title: '文件上传',

labelWidth: 60,

frame:true,

url: 服务器处理上传功能的url地址,//fileUploadServlet

width: 300,

height:200,

fileUpload: true,

items: [{

xtype: 'textfield',

fieldLabel: '文件名',

name: 'file',

inputType: 'file'//文件类型

}],

buttons: [{

text: '上传',

handler: function() {

form.getForm().submit({

success: function(form, response){

Ext.Msg.alert('信息', response.result.msg)

},

failure: function(){

Ext.Msg.alert('错误', '文件上传失败')

}

})

}

}]

})

})

第二种方法：借助Ext.ux.UploadDialog.Dialog的组件，在编码时需要导入两返腊个文件

需要引入 Ext.ux.UploadDialog 样式文件 和 Ext.ux.UploadDialog.packed脚本文件。

例子代码

//在使用此方法者亏进行文件上传时，其后台往页面的返回值类型是这样的：

//{'success':true,'message':'上传成功'}

//如果没有success:true，无论上传成功与否，显示的都是上传失败，其实这个和form.submit()的提交方式是一个道理。

var dialog = new Ext.ux.UploadDialog.Dialog({

autoCreate: true,

closable: true,

collapsible: false,

draggable: true,

minWidth: 400,

minHeight: 200,

width: 400,

height: 350,

permitted_extensions:['JPG','jpg','jpeg','JPEG','GIF','gif','xls','XLS'],

proxyDrag: true,

resizable: true,

constraintoviewport: true,

title: '文件上传',

url:用于处理上传文件功能的Url,

reset_on_hide: false,

allow_close_on_upload: true ,

upload_autostart: false

})

//定义上传文件的按钮

var btnShow = new Ext.Button({

text:'上传文件',

listeners:{

click:function(btnThis,eventobj){

dialog.show()

}

}

})

---