Buenas,
pues estoy creando un lanzador para el WoW mediante un tutorial que he encontrado en youtube. Por ahora llevo copiado esto:
Imports System.IO
Public Class Form1
Dim appPath As String = My.Application.Info.DirectoryPath
Dim allUsersAppData As String = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData
Dim currentUserAppData As String = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData
Dim docsDirectory As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim musicDirectory As String = My.Computer.FileSystem.SpecialDirectories.MyMusic
Dim picsDirectory As String = My.Computer.FileSystem.SpecialDirectories.MyPictures
Dim desktopDirectory As String = My.Computer.FileSystem.SpecialDirectories.Desktop
Dim programsDirectory As String = My.Computer.FileSystem.SpecialDirectories.Programs
Dim programFileDirectory As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
Dim tempDirectory As String = My.Computer.FileSystem.SpecialDirectories.Temp
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
MsgBox("Para más información visite www.terra-golfa.com")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
Process.Start(appPath + "\wow.exe")
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Dim realmlist As StreamWriter = New StreamWriter(appPath + "\esES\realmlist.wtf", False)
realmlist.WriteLine("set realmlist logon.golfex.net")
realmlist.Close()
End Sub
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
Opciones.Show()
End Sub
End Class
El problema es el siguiente:
Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: Acceso denegado a la ruta de acceso 'C:\ProgramData\Microsoft\Ayuda\1.0.0.0'.
No estoy seguro pero creo que es algo relacionado con los permisos, tengo Windows 7.
Un saludo y gracias!
