diff --git a/comp/src/gb.form/.src/File/Chooser/FDirChooser.class b/comp/src/gb.form/.src/File/Chooser/FDirChooser.class index eb4349b18..a8daa2c58 100644 --- a/comp/src/gb.form/.src/File/Chooser/FDirChooser.class +++ b/comp/src/gb.form/.src/File/Chooser/FDirChooser.class @@ -699,7 +699,7 @@ Public Sub SetRoot(Optional sRoot As String) Try dvwChoose.Root = sRoot - hBookmark = $hBookmarkList.FindBookmark(sRoot) + hBookmark = $hBookmarkList.FindBest(sRoot) SetBookmark(hBookmark) End @@ -1292,11 +1292,10 @@ Public Sub mnuCopy_Click() If aPath.Count = 0 Then Return - Clipboard.CopyPaths(aPath) + Clipboard.Copy(aPath, "text/uri-list") End - Public Sub mnuUncompress_Click() 'Dim sResult As String