用try 不行呀,代码如下, 意思是,每次 启动项目时,先检查一个 temp 目录是否存在,如果不存在,就创建它, 如果 存在,就把它下面的 内容都删除,使用了 try之后,还是 以对话框的形式 报以下错误,请问有那种不用对话框报错的吗? 否则用户体验不好, 我的意思是,即使删除不了文件夹,可以不删除,但是不要以对话框的形式报错

此主题相关图片如下:134.png


此主题相关图片如下:178.png

If FileSys.DirectoryExists(ProjectPath & "Temp") = False Then
FileSys.CreateDirectory(ProjectPath & "Temp")
End If
If FileSys.DirectoryExists(ProjectPath & "Temp") = True Then
Dim fi As FileInfo = new Fileinfo(ProjectPath & "Temp")
If fi.Hidden= False Then
fi.Hidden=True
End If
End If
If FileSys.DirectoryExists(ProjectPath & "Temp") = True Then
For Each dir As String In FileSys.GetDirectories(ProjectPath & "Temp")
Try
FileSys.DeleteDirectory(dir,2,3)
Catch ex As Exception
End Try
Next
End If
If FileSys.DirectoryExists(ProjectPath & "Temp") = True Then
For Each f As String In FileSys.GetFiles(ProjectPath & "Temp")
Try
FileSys.DeleteFile(f)
Catch ex As Exception
End Try
Next
End If