For Each File As String In FileSys.GetFiles(FPath)
Application.DoEvents
'终止执行
If GetFileEnable = 0 Then : Return 0 : End If
Dim ifo As new FileInfo(file)
Dim r1 As DataRow
If SameNameEnable=1 Then '允放同名
r1 = tb.DataTable.Find("文件名='" & Ifo.Name & "' and 路径='" & Ifo.Path & "'")
Else '不允许同名
r1= tb.DataTable.Find("文件名='" & Ifo.Name & "'")
End If
'如果表中已存在记录,或,扩展名不匹配,则跳过.
Vars("FileCounts")=Vars("FileCounts")+1 '遍历的文件数
If r1 IsNot Nothing OrElse Array.indexof(FExtensions, ifo.Extension.ToLower) < 0 Then
StatusBar.Message2= "进度:" & Ifo.Name
Continue For
End If
Dim r As Row=tb.AddNew
Dim max As String = tb.DataTable.Compute("max(id)")
Dim idx As Integer
'ID赋值
If max > "" Then
idx =Cint( max.SubString(3,6)) + 1
Else
idx = 1
End If
r("ID")="BH-" & Format(idx,"000000")
r("文件名")=ifo.Name
r("后缀名")=ifo.Extension
r("大小")= CInt(ifo.Length/1024/1024)
r("路径")=Ifo.Path
r("创建时间")=ifo.CreationTime
r("上次修改时间")=Ifo.LastWriteTime
r("上次访问时间")=Ifo.LastAccessTime
If UpdateScreenEnable = 0 Then '是否即时保存,是
r.Save
End If
Vars("FileCount")=Vars("FileCount")+1 '合规的文件数
Next
报错：指定的路径或文件名太长，或两者都太长，完全限定文件名必须少于260个字符，并且目录名必须少于248个字符。
加好友 
发短信
Post By：2019/2/28 12:21:00 [只看该作者]
