Skip to content

Commit

Permalink
Bug 1445: Failure when executing local shortcut pointing to UNC direc…
Browse files Browse the repository at this point in the history
…tory

https://winscp.net/tracker/1445

Source commit: bf58f0eef8acadd0bbdd209e70393f70edf7740b
  • Loading branch information
martinprikryl committed Jan 27, 2018
1 parent 71a75e6 commit a1aec65
Showing 1 changed file with 2 additions and 22 deletions.
24 changes: 2 additions & 22 deletions source/packages/filemng/DirView.pas
Expand Up @@ -2705,7 +2705,6 @@ procedure TDirView.ExecuteFile(Item: TListItem);
var
DefDir: string;
FileName: string;
Node: TTreeNode;
begin
if (UpperCase(PFileRec(Item.Data)^.FileExt) = 'LNK') or
PFileRec(Item.Data)^.IsDirectory then
Expand All @@ -2727,27 +2726,8 @@ procedure TDirView.ExecuteFile(Item: TListItem);

if DirExists(FileName) then
begin
if Assigned(FDriveView) then
with TDriveView(FDriveView) do
begin
Node := FindNodeToPath(FileName);
if not Assigned(Node) then
begin
ValidateDirectory(GetDriveStatus(FileName[1]).RootNode);
Node := FindNodeToPath(FileName);
end;
if Assigned(Node) then
begin
Directory := FileName;
CenterNode(Selected);
end;
Exit;
end
else
begin
Path := FileName;
Exit;
end;
Path := FileName;
Exit;
end
else
if not FileExists(ApiPath(FileName)) then
Expand Down

0 comments on commit a1aec65

Please sign in to comment.