diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index 4458edf0..db701bfd 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -614,6 +614,7 @@ begin
   lst := TStringList.Create;
   try
     listFolders(lst, PString(aRoot.Data)^ + directorySeparator);
+    lst.Sort;
     for fold in lst do
     begin
       itm := Tree.Items.AddChild(aRoot, fold.extractFileName);