EnableExplicit Define Pfad$ Pfad$ = "C:\Windows\System32\notepad.exe" PathRemoveFileSpec_(@Pfad$) MessageRequester("","Pfad: "+Pfad$+"\",0)