Bug 1951: When opening or switching to a session whose local directory does not exist, open the nearest existing parent directory

https://winscp.net/tracker/1951
(cherry picked from commit 10aa9e9018)

# Conflicts:
#	source/forms/ScpCommander.cpp

Source commit: cc258beb565c161b003fb845b10753c364a1ceea

source/forms/ScpCommander.cpp

@@ -545,6 +545,10 @@ void __fastcall TScpCommanderForm::TerminalChanged(bool Replaced)
           {
             Terminal->ShowExtendedException(&E);
           }
+          else
+          {
+            ALocalDirView->OpenFallbackPath(LocalDirectory);
+          }
         }
       }
     }

source/packages/filemng/DirView.pas

@@ -270,6 +270,7 @@ type
     function ItemFileName(Item: TListItem): string; override;
     function ItemFileSize(Item: TListItem): Int64; override;
     function ItemFileTime(Item: TListItem; var Precision: TDateTimePrecision): TDateTime; override;
+    procedure OpenFallbackPath(Value: string);
 
     {Thread handling: }
     procedure StartWatchThread;
@@ -970,6 +971,29 @@ begin
   end;
 end;
 
+procedure TDirView.OpenFallbackPath(Value: string);
+var
+  APath: string;
+begin
+  while True do
+  begin
+    APath := ExtractFileDir(Value);
+    if (APath = '') or (APath = Value) then
+    begin
+      Break;
+    end
+      else
+    begin
+      try
+        Path := APath;
+        Break;
+      except
+        Value := APath;
+      end;
+    end;
+  end;
+end;
+
 procedure TDirView.SetLoadEnabled(Value: Boolean);
 begin
   if Value <> LoadEnabled then