Jump to content

Variable stimmt nicht !


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

hab ich gemacht...es ist eine systemvariable...

jetzt funktionierts auch, aber ich hab das gefühl, das der rechner eine weile brauch, um den wert auch speichern...weil, wenn ich in der eingabeauffordrung volgendes eingebe :

%fabroot%

dann kommt als fehlermeldung:

Der Befehl "F:\Programme\Test" ist entwerder falsch geschrieben oder konnte nicht gefunden werden...das zeigt aber, das der variablen dieser wert schon zugeteilt ist...nur springt er nicht gleich in das verzeichnis...

Link zu diesem Kommentar

nein mit VB:

 

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

 

es klappt ja alles, nur der rechner braucht lange, um den wert zu übernehmen und ich weiß nicht warum...

Link zu diesem Kommentar

bis jetzt klappt alles...

jetzt möchte ich mit der variable was installieren

 

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

 

weiß da jemand weiter ?

Link zu diesem Kommentar

Ich hab n beispiel wie ich das mit ping gelöst hab.

vielleicht hilfts dir weiter?!

set WSHShell = CreateObject("WScript.Shell")

 

ip = inputbox (" Die die netznummer eingeben")

if isempty(ip) then wscript.quit

ip1 = inputbox (" Die die Hostnummer eingeben")

if isempty(ip1) then wscript.quit

ip2 = "ping -t 192.168." & ip & "." & ip1

 

Set WshSysEnv = WshShell.Environment("USER")

WshSysEnv("ip3") = ip2

 

WSHShell.run("%ip3%")

:wink2:
Link zu diesem Kommentar

ja, bei mir klappt ja alles soweit, ich hab nur noch ein problem...

die systemvariable %fabroot% hat den wert F:\Programme\Test

ich hab auf meinem desktop eine installationsdatei liegen, die ich installieren will....

wenn ich als installationspfad %fabroot% eingebe kopiert er die dateien nicht nach F:\Programme\Test...er legt einfach einen neuen ordner namens %fabroot% auf dem desktop an und kopiert dort die ganzen dateien rein...

was mach ich falsch ?

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...