DataTables("SQL_wdjbxxb").Load
Dim w_type As String
w_type = e.Form.Controls("ComboBox1").value
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter="所有文件|*.*" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("您已选择了1份文档,这些文档将被导入到万盛文管服务器,在导入之前,您可能需要设置这些文档的类型以及共享权限!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
End If
Dim lujing = dlg.FileName
Dim ifo As new FileInfo(lujing)
Dim w_CreationTime As String
Dim w_LastWriteTime As String
Dim w_LastAccessTime As String
Dim w_ReadOnly As String
Dim w_Hidden As String
Dim w_Path As String
Dim w_Length As String
Dim w_Name As String
Dim w_Extension As String
w_CreationTime = ifo.CreationTime
w_LastWriteTime = ifo.LastWriteTime
w_LastAccessTime = ifo.LastAccessTime
w_ReadOnly = ifo.ReadOnly
w_Hidden = ifo.Hidden
w_Path = ifo.Path
w_Length = ifo.Length
w_Name = ifo.Name
w_Extension = ifo.Extension
Dim User1 As String = _UserName
Dim User2 As String = _UserName
Dim W_L As String
Select Case w_Length
Case Is <1048576
W_L =(w_Length/1024)& "KB"
Case Is < 1073741824
W_L =(w_Length/1048576)& "MB"
Case Else
W_L =(w_Length/1073741824)& "GB"
' Case Is >1073741824
' W_L =(w_Length/1073741824)& "GB"
' Case Else
' W_L =(w_Length/1048576)& "MB"
End Select
Output.Show(W_L)
With MainTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {wdjbxxb} ([wdmc],[wdlx],[wddx],[wdcjr],[cjsj],[wdxgr],[xgsj]) Values ('"
cmd.CommandText = cmd.CommandText & w_Name & "','" & w_type & "','" & W_L & "','" & User1 & "','" & w_CreationTime & "','" & User2 & "','" & w_LastWriteTime & "')"
cmd.ExecuteNonQuery
DataTables("SQL_wdjbxxb").Save()
Tables("SQL_wdjbxxb").Current.Load()
End With
'Messagebox.show(w_type)
Forms("文档类型选择窗口").Close()
Forms("文档权限设置").Open()
加好友 
发短信
Post By：2016/4/21 22:33:00 [只看该作者]
此主题相关图片如下：截图20160422100329.png
