未處理的異常類型'System.Security.SecurityException'

第一次海報長時間讀者。我想說，謝謝你們所有的工作。我一直在研究一個VB項目，目前我們有一些用dos編寫的工具，但它的日期和目前只是不適用於&％^ $。我批准的是這個。未處理的異常類型'System.Security.SecurityException'

if exist %userprofile%\Local GOTO W7 

RD /s /q "%userprofile%\Local Settings\Application Data\Our Company Folder" 

RD /s /q "%userprofile%\AppData\Local\Our Company Folder"

發生損壞時刪除我們公司的配置文件夾。

既然我們有在VB中創建的支持工具，我想將此命令更改爲VB。

這是我現在已經是

 Dim fso 
     Dim wshshell As Object 
     Dim USRPROFILE 
     fso = CreateObject("scripting.filesystemobject") 
     wshshell = CreateObject("wscript.shell") 
     USRPROFILE = wshshell.expandenvironmentstrings("%APPDATA%") 
     If fso.FolderExists(USRPROFILE & "\Our Company Folder") Then 
      fso.DeleteFolder(USRPROFILE & "\Our Company Folder") 
     End If 
     USRPROFILE = wshshell.expandenvironmentstrings("%HOMEPATH%") 
     If fso.FolderExists(USRPROFILE & "\Local Settings\Application Data\Our Company Folder") Then 
      fso.DeleteFolder(USRPROFILE & "\Local Settings\Application Data\Our Company Folder") 
     End If 
End Sub

但是我收到此錯誤信息。類型「System.Security.SecurityException」的未處理的異常發生在Microsoft.VisualBasic.dll中

其他信息：從HRESULT異常：0x800A0046（CTL_E_PERMISSIONDENIED）

來源

2013-07-02 user2543297