主题：关闭系统是出现下面的错误提示

原来一直正常，今天出现这样的问题是何原因？

此主题相关图片如下：qq截图20190522110652.png

 

贴出完整的错误提示，或者图片。

 

 

 

贴出你beforeCloseProject事件代码。

 

 

加入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

找到了，是一个图片文件的文件名为：@D_[EHP%J%JF)0{3}4}BJ@S.jpg。是否是文件名过于复杂或者是什么特殊符号使得参数传递错误。

谢谢版主了！！！

参考代码

 

try
    ShowAppWindow("@D_[EHP%J%JF)0{3}4}BJ@S.jpg", 5)
catch ex As exception
    msgbox(123)
End try