VB Anwendung aus Textfeld mit Pfad starten

[Cracker]

Hallo

1.
Also ich habe einen Button "Command1" und
will aus dem eine Anwendung starten der Pfad ist in einen Textfeld.

2.
Ich will das das Textfeld den Pfad speichert damit der Button den Pfad abrufen kann.

vielleicht kann mir jemand helfen!

thx mfg

 

[.tails]

Ersteres ist leicht.

Private Sub Command1_Click()
    Shell Text1.Text, vbNormalFocus
End Sub

Das zweite versteh ich jetzt grad nicht so richtig.
Willst du das der Pfad in einer Textdatei gespeichert wird, oder wie?

 

[dabind]

du musst den pfad nicht speichern um ihn abrufen zu können

Option Explicit
Private Sub Command1_Click()
Shell Text1.Text, vbNormalFocus
End Sub

*!* Du kannst nur anwendungen öffen *!* das heisst keine TXT JPG oder andere dateien nur EXE, BAT usw.


Mit diesem Code startet das Text feld automatisch mit dem Systemdrive z.b. C:\

Private Sub Form_Load()
Text1.Text = Environ("systemdrive") & "\"
End Sub

 

[Cracker]

Pfad speichern

Ok 1. hat geklappt
thx
aber 2. meinte ich das du einmal den Pfad eingibst
der wird dann in eine Textdatei im gleichen Verzeichnisses des Programmes gespeichert, und der Pc kann bei jeden start des Programms den Pfad des jeweiligen Programmes angeben (bzw das Programm aus dem Pfad starten)

mfg

 

[Gabriel3]

hab ich das richtig verstanden, du willst den Pfad in einer Datei speichern?
dann:
open app.path + "\Pfad.txt" for output as #1
print #1, text1.text
close

und wenn du am anfang prüfen willst, ob die Datei schon vorhanden ist:
if dir$(app.path + "\Pfad.txt") = "" then
'nicht vorhanden
else
'vorhanden
end if

sorry, falls ich das was du willst falsch verstanden haben sollte
cu
Gabriel3

 

[Cracker]

Hast schon richtig verstanden .Danke!!!!!