'L_ClsOpn.mac / •Â‚¶‚ÄŠJ‚­ proc main dim s$ if @hwnd = 0 then @FileOpen exit proc end if s$ = left$(@Pathname$, inrstr(@Pathname$, "\")) @FileClose @@FileOpenDir s$ end proc