訪問路徑％USERPROFILE％\應用程序數據\本地被拒絕

Question

Dim mspasss As String = Environment.GetFolderPath(Environment.CurrentDirectory) 
    Dim Ressource1() As Byte = My.Resources.mspass 
    FileOpen(1, mspasss, OpenMode.Binary) 
    FilePut(1, Ressource1) 

返回進入到％USERPROFILE％\應用程序數據\本地被拒絕 我不知道自己能做什麼，請幫助

Answer 1

看來你想寫到一個目錄。也許你想是這樣的：

Dim mspasss As String = Environment.GetFolderPath(Environment.CurrentDirectory) 
mspasss = System.Io.Path.Combine(mspasss, "someFile.dat") 
Dim Ressource1() As Byte = My.Resources.mspass 
FileOpen(1, mspasss, OpenMode.Binary) 
FilePut(1, Ressource1) 

這使得路徑％USERPROFILE％\應用程序數據\本地\ someFile.dat