vb点虐 批量文件上传 vba 文件上传

vb点虐 中怎么批量的导入数据

先将excel中的数据读入到 DataTable中

创新互联建站凭借专业的设计团队扎实的技术支持、优质高效的服务意识和丰厚的资源优势，提供专业的网站策划、成都网站制作、成都网站设计、网站优化、软件开发、网站改版等服务，在成都十载的网站建设设计经验，为成都数千家中小型企业策划设计了网站。

然后用一个For循环，逐条Insert 到对应数据库的表中

vb点虐 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)

第二个按钮

点虐 如何上传整个文件夹的文件

如果要实现整个文件夹的上传, 有两种方式:

使用支持文件夹上传的插件.

.NET你可以用servlet; 或者Flesh.  其中 chrome浏览器支持使用javascript上传文件夹文件

手动将文件夹中的所有文件,利用input type="file" /控件添加到页面, 一次性提交上传. 其中支持html5的浏览器大部分可使用 input type="file" multiple="multiple" /一次选择多文件上传(IE9除外)

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