'Открытие папки для Экспорта в проводнике sExportPath = CurrentProject.Path & "\Export\" Shell "explorer.exe " & sExportPath, vbNormalFocus