Как я могу использовать файл .exe в моей папке ресурсов? Я хочу скопировать файл из папки ресурсов в другую папку.
пробовал это
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (Directory.Exists("Files")) Then
Else
End If
Directory.CreateDirectory("Files")
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = My.Resources.THEFILEIWANT <- only this part doesn't work
NewCopy = "Files\THEFILEIWANT.exe"
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
End If
End Sub
Это необходимо, чтобы при отсутствии файла файл создавался / копировался.
Кто-нибудь знает, как я могу вызвать файл из папки ресурсов?
Пробовал это `Dim writePermission As FileIOPermission
writePermission = Новый FileIOPermission (FileIOPermissionAccess.Write)
If (SecurityManager.IsGranted(writePermission)) Then
My.Computer.FileSystem.WriteAllBytes("Files", My.Resources.unscrambler, False)
End If`
Но я получаю недопустимую ошибку разрешения.