Макрос для переноса содержимого папки на уровень выше

Здесь обсуждается всё, что касается макросов.
Post Reply
Hedin
Posts: 210
Joined: Thu 17 Mar, 2005 10:29
Has thanked: 4 times

Макрос для переноса содержимого папки на уровень выше

Post by Hedin »

Есть макрос:

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!
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

$While(!APanel.Bof)
Hedin
Posts: 210
Joined: Thu 17 Mar, 2005 10:29
Has thanked: 4 times

Post by Hedin »

Спасибо!
Post Reply

Return to “Обсуждение макросов”