访问路径％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