Visual Basic Forum

Sev7eNup · Newbie Anmeldedatum: 23.11.2009 Beiträge: 1

Hallo erstmal, bin neu hier und habe folgendes Problem Confused

Hab folgenden Code:

Module Module1

Sub Main()

If Not My.Computer.FileSystem.FileExists("C:\Windows\System32\DirectorySize.exe") Then

My.Computer.FileSystem.CopyFile("C:\DirectorySize.exe", "C:\Windows\System32\DirectorySize.exe", True)

End If

'Autostart(Funktion)

Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

key.SetValue(My.Application.Info.ProductName("C:\Windows\System32\DirectorySize.exe"), """" & System.Reflection.Assembly.GetEntryAssembly.Location("C:\Windows\System32\DirectorySize.exe") & """")

End Sub

End Module

In der Zeile "keySet.Value..." gibt VS nun folgenden Fehler aus: "InvalidCastException wurde nicht behandelt - Ungültige Konvertierung von der Zeichenfolge C:\Windows\System32\DirectorySiz in Typ Integer. "

Das Problem ansich leuchtet mir ein. Aber wie sage ich ihm, dass er von String in Integer konvertieren soll ?, Stichwort CASTEN.

Bin für jede Hilfe dankbar.