die installationsdatei liegt bei mir auf dem desktop... und er solls in %fabroot% installieren %fabroot% = F:\Programme\Test aber wenn ich als installationsverzeichnis %fabroot% eingebe erstellt er einfach einen ordner namens %fabroot% auf dem desktop, anstatt die dateien nach F:\Programme\test zu kopieren. kann mir da jemand helfen ?
agmblp4eh4e mari2 „Variable falsch ??!!“
ich erzeuge eine exe, die ihren ort allein bestimmt und danach wird der ort einer systemvariablen hinzugefügt:-->VB 6.0
Option Explicit
Private Sub Command1_Click()
Dim A As Variant
Text1.Text = App.Path
A = Text1.Text
MsgBox "Hier befindet sich dich exe-Datei:" + A, vbInformation, "Ort der EXE-Datei"
'Stellt den Suchassistent auf 2000 um
' Pfad des Schlüssels "Wert" ist kein wert Vorhanden wird ein neuer schlüssel angelegt
RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\fabroot", A
End Sub
' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(ByVal Path As String, _
ByVal Value As String, _
Optional ByVal Typ As String = "REG_SZ") As Boolean
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegWrite Path, Value, Typ
RegWrite = True
Exit Function
ErrHandler:
RegWrite = False
End Function
soweit so gut, bis hierher klappt alles...jetzt hab ich meiner variablen %fabroot% den wert F:\Programme\Test gegeben...ich habe auf meinem desktop ein programm, dass ich installieren möchte (z.B. WinRAR)...wenn ich die installation starte und unter Installationspfad folgendes eingebe: %fabroot% installiert er nicht die dateien in F:\Programme\Test, sondern er legt einfach einen neuen ordner mit dem namen %fabroot% auf dem desktop an...und ich weiß nicht warum...
