vb.net - 拒绝访问路径 %userprofile%\AppData\Local

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%\AppData\Local 的访问被拒绝我不知道还能做什么请帮忙

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%\AppData\Local\someFile.dat 的路径