浏览代码

Bug 1445: Failure when executing local shortcut pointing to UNC directory

https://winscp.net/tracker/1445

Source commit: bf58f0eef8acadd0bbdd209e70393f70edf7740b
Martin Prikryl 9 年之前
父节点
当前提交
a1aec657fd
共有 1 个文件被更改,包括 2 次插入22 次删除
  1. 2 22
      source/packages/filemng/DirView.pas

+ 2 - 22
source/packages/filemng/DirView.pas

@@ -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
@@ -2727,27 +2726,8 @@ begin
 
     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