那你就尝试在beforeOpenProject或者beforeClosePorject写代码
Dim str As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\FoxTable(狐表)"msgbox(str)If FileSys.DirectoryExists(str) Then filesys.DeleteDirectory(str,2,2)End If