VB Папка: Access Denied (с правами администратора)

Question

Я использую VB.NET язык на окнах 10 с VS 2015

Я пытаюсь создать каталог, а затем скопировать файл из папки ресурсов моего приложения в том, что каталог

код:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim SubFolderPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles), "Main Folder\Sub Folder") 

    Directory.CreateDirectory(SubFolderPath) 

    'Error: access denied to "C:\Program Files\Main Folder\Sub Folder" 
    File.WriteAllBytes(SubFolderPath, My.Resources.exe1) 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 

    File.WriteAllBytes(SubFolderPath, My.Resources.exe2) 
    File.WriteAllBytes(SubFolderPath, My.Resources.exe2dat) 
End Sub 

я получаю ошибку, как заметил в коде выше, (у меня есть права администратора)

код результата: создана папка «C: \ Program Files \ Main Folder \ Sub Folde r ", но затем доступ запрещен при копировании.

Я не знаю, почему доступ запрещен ... вы можете мне помочь?

Answer 1

Проблема с кодом является то, что вы задаете имя каталога вместо имени файла в качестве первого аргумента File.WriteAllBytes методов:

File.WriteAllBytes(SubFolderPath, My.Resources.exe1)` 

что-то вроде этого, чтобы исправить это:

File.WriteAllBytes(SubFolderPath & "\exe1.exe", My.Resources.exe1) 
File.WriteAllBytes(SubFolderPath & "\exe2.exe", My.Resources.exe2) 
File.WriteAllBytes(SubFolderPath & "\exe2dat.dat", My.Resources.exe2dat) 

И это не проблема с Byte(). Всякий раз, когда вы импортируете двоичный exe в свои ресурсы, он сохраняется как Byte(). Вы не должны беспокоиться об этом.