VB: shell() mag meine progs net

Option Explicit

Dim Prog As Variant

Const Sol = C:\WINNT\system32\Sol.exe
Const Cmd = C:\WINNT\system32\CMD.exe
Const Calc = C:\WINNT\system32\calc.exe
Const Ps = E:\Programme\Paint Shop Pro 7\Psp.exe
Const Wa = E:\Programme\Winamp\Winamp.exe
-------------------------------------------------
Private Sub Text1_Change()
Prog = Text1.Text
End Sub
-----------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Shell (Prog), vbNormalFocus
Text1.Text =

End If

End Sub
-----------------------------------------
wenn ich die cmd aufmachen will geht alles. will ich winamp aufmachen motzt er dass er die datei net finden kann. Wieso ???

Hallo

Ändere folgende Funktion wie folgt.

Private Sub Text1_Change()
Select Case Text1.Text
Case Is = Sol
Prog = Sol
Case Is = cmd
Prog = Cmd
Case Is = Ps
Prog = Ps
Case Is = Wa
Prog = Wa
End Select
End Sub

In Deinem Code wird (Prog = Text1.Text) wird lediglich das was man ins Textfeld eingegeben hat als Parameter beim Shellaufruf übergeben.
Bei->cmd' und->sol' funktioniert das, da wenn kein Pfad angegeben automatisch .exe oder .com Dateien in Windowsstandartverzeichnissen oder dem App.Path mit dem Namen gesucht werden. Bei->sol' und->cmd' stimmt das zufällig.

Gruß Fizbin

P.S.: Wenn Du im Deklarationsteil des Formulares noch die Anweisung-> Option Compare Text' schreibst, ist die Gross/Kleinschreibung im Textfeld egal.