Radiobutton select path

[Stress]

Hallo iedereen,

Ik heb een projectje gemaakt dat je moet aanklikken welke pc je hebt een x86 of een x64.

Nu wil ik dat ze x86 of x64 aanklikt dat hij het dus schrijft naar de Program Files (x86) of gewoon program files.

Scriptje:

Imports System.Windows.Forms
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FilePath As String
        Dim radiobutton1 As String
        Dim radiobutton2 As String
        radiobutton1 = " (x86)"
        radiobutton2 = " "
        FilePath = "C:\Program Files" & radiobutton1 & radiobutton2 & "\"
        My.Computer.FileSystem.WriteAllText(FilePath, "cl_crosshairscale " & TextBox2.Text, True)
        My.Computer.FileSystem.WriteAllText(FilePath, vbNewLine, True)
    End Sub
End Class

Error bij debugging:

Het opgegeven pad eindigt met een teken voor mapscheiding. Parameternaam: file

Wie kan me helpen?

 

[Jori13]

Hmm, probeer het eens zo:

Imports System.Windows.Forms
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FilePath As String
        Dim radiobutton1 As String
        Dim radiobutton2 As String
        radiobutton1 = " (x86)"
        radiobutton2 = " "
        FilePath = "C:\Program Files" & radiobutton1 & radiobutton2
        My.Computer.FileSystem.WriteAllText(FilePath, "cl_crosshairscale " & TextBox2.Text, True)
        My.Computer.FileSystem.WriteAllText(FilePath, vbNewLine, True)
    End Sub
End Class

 

[Stress]

Dan krijg ik dat ik geen toegang tot C:\Program Files ...\ heb. Als ik doe: Als administrator uitvoeren, heb ik dit ook.

Hoe oplossen?

 

[Jori13]

Rechten kun je niet zomaar zetten met VB, anders zouden ze toch ook geen zin hebben Wel kun je er bijvoorbeeld een try box omheen zetten, die de error opvangt (traped).

Imports System.Windows.Forms
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FilePath As String
        Dim radiobutton1 As String
        Dim radiobutton2 As String
        radiobutton1 = " (x86)"
        radiobutton2 = " "
        FilePath = "C:\Program Files" & radiobutton1 & radiobutton2
Try
        My.Computer.FileSystem.WriteAllText(FilePath, "cl_crosshairscale " & TextBox2.Text, True)
        My.Computer.FileSystem.WriteAllText(FilePath, vbNewLine, True)
Catch se As SecurityException
MsgBox("U heeft niet de boevoegde rechten, log in als Administrator.")
End Try
    End Sub
End Class