Habe noch ein weiteres Problem und hoffe auf eure Hilfe (es wird wohl nicht mein letztes sein ).
Hab folgenden Code:
[highlight=vbnet]
Module Module1
Sub Main()
'Prüft ob Datei bereits vorhanden ist
If Not My.Computer.FileSystem.FileExists("C:\Windows\Syst em32\DirectorySize.exe") Then
'kopiert Quelldatei ins Quellverzeichnis
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("Sof tware\Microsoft\Windows\CurrentVersion\Run")
key.SetValue(My.Application.Info.ProductName(CInt( "C:\Windows\System32\DirectorySize.exe")), """" & System.Reflection.Assembly.GetEntryAssembly.Locati on(CInt("C:\Windows\System32\DirectorySize.exe") & """"))
End Sub
End Module
[/highlight]
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 wie immer dankbar.
Hab folgenden Code:
[highlight=vbnet]
Module Module1
Sub Main()
'Prüft ob Datei bereits vorhanden ist
If Not My.Computer.FileSystem.FileExists("C:\Windows\Syst em32\DirectorySize.exe") Then
'kopiert Quelldatei ins Quellverzeichnis
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("Sof tware\Microsoft\Windows\CurrentVersion\Run")
key.SetValue(My.Application.Info.ProductName(CInt( "C:\Windows\System32\DirectorySize.exe")), """" & System.Reflection.Assembly.GetEntryAssembly.Locati on(CInt("C:\Windows\System32\DirectorySize.exe") & """"))
End Sub
End Module
[/highlight]
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 wie immer dankbar.
Comment