Code: Select all
$If (APanel.Folder)
Enter
$Else
Home
$End
Down
$While (!Bof)
$If (fexist("..\\" + APanel.Current) == 1)
%addEnter = 1;
$Else
%addEnter = 0;
$End
F6 ".." Enter
$If (%addEnter == 1)
Enter
$End
$End
Enter F8 Enter
А тут вдруг взбесился и не останавливается после одного раза...
Что будет когда он дойдет до корня я не проверял.
The FAR manager, version 1.71 alpha 4 (build 2287) - TEST ONLY!