以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关闭系统是出现下面的错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135262)
|
-- 作者:倪惠明
-- 发布时间:2019/5/22 11:11:00
-- 关闭系统是出现下面的错误提示
原来一直正常,今天出现这样的问题是何原因?
|
-- 作者:倪惠明
-- 发布时间:2019/5/22 11:14:00
--
此主题相关图片如下:qq截图20190522110652.png
|
-- 作者:有点甜
-- 发布时间:2019/5/22 11:16:00
--
贴出完整的错误提示,或者图片。
|
-- 作者:有点甜
-- 发布时间:2019/5/22 11:19:00
--
贴出你beforeCloseProject事件代码。
|
-- 作者:倪惠明
-- 发布时间:2019/5/22 11:22:00
--
BeforeCloseProject 代码
Dim fls As String = ProjectPath & "\\temp\\" For Each File As String In FileSys.GetFiles(fls) ShowAppWindow(FileSys.GetName(file), 5) If FileSys.FileExists(file) Then \'如果指定的文件存在 If FileIsOpened(file)=True Then Else FileSys.DeleteFile(file,2,2) \'则彻底删除之 End If End If Next
|
-- 作者:有点甜
-- 发布时间:2019/5/22 11:28:00
--
加入msgbox,定位出错位置
Dim fls As String = ProjectPath & "\\temp\\" For Each File As String In FileSys.GetFiles(fls) msgbox(1)
msgbox(file) ShowAppWindow(FileSys.GetName(file), 5) msgbox(2) If FileSys.FileExists(file) Then \'如果指定的文件存在 If FileIsOpened(file)=True Then Else FileSys.DeleteFile(file,2,2) \'则彻底删除之 End If End If msgbox(3) Next
|
-- 作者:倪惠明
-- 发布时间:2019/5/22 15:44:00
--
找到了,是一个图片文件的文件名为:@D_[EHP%J%JF)0{3}4}BJ@S.jpg。是否是文件名过于复杂或者是什么特殊符号使得参数传递错误。
|
-- 作者:倪惠明
-- 发布时间:2019/5/22 15:44:00
--
谢谢版主了!!!
|
-- 作者:有点甜
-- 发布时间:2019/5/22 15:56:00
--
参考代码
try ShowAppWindow("@D_[EHP%J%JF)0{3}4}BJ@S.jpg", 5) catch ex As exception msgbox(123) End try
|