String zu Int konvertieren (CASTEN)

Sev7eNup

Lieutenant
Dabei seit
Feb. 2008
Beiträge
548
Habe bei folgendem Code folgende Fehlermeldung:

Code:

1. Module Module1

2.

3. Sub Main()

4.

5. 'Prüft ob Datei bereits vorhanden ist

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

7.

8. 'kopiert Quelldatei ins Quellverzeichnis

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

10.

11. End If

12.

13. 'Autostart(Funktion)

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

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

16.

17.
End Sub
18.

19. End Module


In Zeile 13 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.
 
Zeile 15 hat den Fehler, dass du explizit die Zeichenkette "C:\Windows\System32\DirectorySize.exe" in Integer konvertierst.
Code:
CInt("C:\Windows\System32\DirectorySize.exe") ' --> InvalidCastException

Keine Ahnung was du mit der Zeile 15 erreichen wolltest...
 
Zurück
Top