EnableExplicit If OpenWindow(0, 0, 0, 200, 100, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TextGadget(1, 10, 10, WindowWidth(0)-20, 20, "C:\Ordner1\Ordner2\Ordner3\Ordner4\Ordner5\", #SS_PATHELLIPSIS) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf