想 对文件做个筛选、合适的就导入
不合适的跳过
Dim e = args(0)
Dim dir As String = args(0)
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1) '获得文件后缀名
Select Case ext
Case "bmp", "gif", "jpg", "png", "tif", "wmf"
For Each File As String In FileSys.GetFiles(dir)
Dim r As DataRow = DataTables("产品_图库资源").AddNew()
Dim ifo As New FileInfo(File)
r("原始_文件名") = FileSys.GetName(File)
r("原始_文件地址") = File
r("日期") = Date.Today
r("网络_文件大小") = Round2(ifo.Length / 1024000, 2) & " M"
r("网络_文件地址") = ifo.Path
r("文件_后缀") = ifo.Extension
r("文件_创建时间") = ifo.CreationTime
Next
For Each dir2 As String In FileSys.GetDirectories(dir) '如果有子目录递归
Functions.Execute("递归文件", dir2)
Next
Case Else
MessageBox.Show("此列只能能插入图片文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True '取消插入
End Select
加好友 
发短信
Post By：2024/1/21 14:07:00 [只看该作者]
