Доступ к пути% 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