none
Problema con Visual Basic RRS feed

  • Pregunta

  • 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!


    • Editado Housemusic lunes, 28 de mayo de 2012 15:16
    lunes, 28 de mayo de 2012 15:15

Todas las respuestas

  • Ejecuta tu app por fuera del entorno del IDE de vs y como usuario administrador (Ejecutar como administrador) y confirmas si te sale el mismo error.

    ya verificaste que dicha carpeta efectivamente esxiste...?

    Saludos


    _______________________
    Edward J. Ocando. | Director de Desarrollo & Tecnología | Proiecto.com
    Telefono.+58 (212) 868.90.33 | Edward.Ocando@Proiecto.com

    sábado, 2 de junio de 2012 18:28