Zitat:

Hallo Ph4Z3r, du musst den von mir geposteten Code ohne die Zeile mit Shell ins Dir-Change-Event einfügen

Private Sub Dir1_Change()
OrdnerPfad = "C:\Programme"
DateiPfad = OrdnerPfad & "\" & "RPG2003.exe"
If Dir$(DateiPfad) = "" Then
  MsgBox "Error", vbCritical + vbOKOnly
End If
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!