- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助解决“对于造型说明无效的字符值”错误问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183496)
-- 发布时间：2022/11/7 16:40:00
-- 求助解决“对于造型说明无效的字符值”错误问题
文件监视器代码如下：
If DataTables.Contains("文档汇总") = False Then \'如果表没有加载
DataTables.Load("文档汇总") \'加载表"
End If
Dim ifo As New FileInfo(e.FullPath)
If ifo.Extension = ".doc" Or ifo.Extension = ".docx" Or ifo.Extension = ".png" Or ifo.Extension = ".pdf" Or ifo.Extension = ".xlsx" Or ifo.Extension = ".zip" Or ifo.Extension = ".wps" Or ifo.Extension = ".jpg" Or ifo.Extension = ".pptx" Or ifo.Extension = ".txt" Or ifo.Extension = ".xls" Or ifo.Extension = ".bmp" Or ifo.Extension = ".jpeg" Or ifo.Extension = ".rar" Or ifo.Extension = ".ppt" Or ifo.Extension = ".chm" Or ifo.Extension = ".7z" Or ifo.Extension = ".dotx" Then \'非此类文件不加载
If FileSys.GetName(e.Name).StartsWith("~$") Then \'不加载以~$"开头的文件
Else
Dim r As Row = Tables("文档汇总").addnew \'表增加新行
r("路径") = e.FullPath \'文件名及路径赋值到对应列
r("文件名") = FileSys.GetName(e.Name) \'获取去掉路径的文件名赋值到对应列
r("创建时间") = ifo.CreationTime
r("最后修改时间") = ifo.LastWriteTime
r("文件大小") = ifo.Length
r("文件类型") = ifo.Extension
End If
Else
End If
DataTables("文档汇总").Save()
当有文件增加时会出现：造型说明无效的字符值 错误提示
请版主指教
-- 发布时间：2022/11/7 16:47:00
--
这个提示是日期值有问题，调试看看
msgbox(ifo.CreationTime)
r("创建时间") = ifo.CreationTime
msgbox(r("创建时间"))
msgbox(ifo.LastWriteTime)
r("最后修改时间") = ifo.LastWriteTime
msgbox(r("最后修改时间"))
r("文件大小") = ifo.Length
-- 发布时间：2022/11/7 17:49:00
--
此主题相关图片如下：3.png
此主题相关图片如下：2.png
调试情况：
此主题相关图片如下：1.png
[此贴子已经被作者于2022/11/7 17:50:28编辑过]
-- 发布时间：2022/11/7 17:52:00
--
仍然有错误提示
-- 发布时间：2022/11/7 20:37:00
--
循环结束后所有提示都能正常弹出？
-- 发布时间：2022/11/9 16:26:00
--
是的
出现这个：
此主题相关图片如下：1.png
[此贴子已经被作者于2022/11/9 16:34:10编辑过]
-- 发布时间：2022/11/9 16:28:00
--
格式化一下日期试试
r("创建时间") = format(ifo.CreationTime,"yyyy-MM-dd HH:mm:ss")
-- 发布时间：2022/11/9 16:54:00
--
ok，经测试，问题初步解决，再看看使用过程中有没有问题！
-- 发布时间：2022/11/11 11:23:00
--
使用过程中仍然会出现类型错误，提别是大量复制文件的时候
？？？
-- 发布时间：2022/11/11 11:27:00
--
看来主要问题是出现在时间上，实在不行就只能把时间去掉