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

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

贴出你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

参考代码

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