Allow moving files inside vfs engine (detect target engine by relative path)

1 files changed, 3 insertions, 1 deletions

diff --git a/UMain.pas b/UMain.pas
index c1496af..114ad55 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -2581,7 +2581,9 @@ begin
     AFProgress.ProgressBar.Value := 0;
     AWorkingThread.ProgressForm := AFProgress;
     if Assigned(ListView.Selected) then AWorkingThread.SelectedItem := ListView.Selected.Data;
-    AWorkingThread.DestEngine := OppositeEngine;
+    //  Determine target engine according to absolute/relative path
+    if (NewPath[1] = '/') or (NewPath[1] = '~') then AWorkingThread.DestEngine := OppositeEngine
+                                                else AWorkingThread.DestEngine := Engine;
     AWorkingThread.SrcEngine := Engine;
     
     //  Determine on which engine the entered path is