procedure TfPVMain.actOpenFolderExecute(Sender: TObject);
begin
//    _Mode;
    if (MyOptions.sLastFolder<>'') and (DirectoryExists(MyOptions.sLastFolder)) then begin
        IEOpenFolderDialog1.Folder := MyOptions.sLastFolder;
    end;
    if IEOpenFolderDialog1.Execute then begin
        MyOptions.sLastFolder := IEOpenFolderDialog1.Folder;
        _LoadFolderImages(IEOpenFolderDialog1.Folder);
    end;
end;