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.
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.