以文本方式查看主题

-  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