更新目录打开

designer/utslcodeeditor.tsf

@@ -2729,14 +2729,14 @@ type TEditer=class(TCustomcontrol) //
                 p := it.ScriptPath;
                 if FileExists("",p)then
                 begin
-                    for i := length(p)downto 3 do
+                    {for i := length(p)downto 3 do
                     begin
                         if p[i]="\\" then
                         begin
                             p := p[1:i];
                             break;
                         end
-                    end
+                    end}
                     //_wapi.WinExec('cmd.exe /C start "" "'+p,1);
                     _wapi.openresourcemanager(p);
                 end
@@ -2975,7 +2975,7 @@ type TEditer=class(TCustomcontrol) //
         fl := FileList("",n);
         if not(length(fl)=1)then return false;
         nn := fl[0,"FileName"];
-        if(POS("d",fl[0,"Attr"]))then return false;
+        if(POS("D",fl[0,"Attr"]))then return false;
         it := new TPageEditerItem(FPageEditer);
         oit := GetCurrentEditer();
         if oit then