[Iska]

Основываясь на: Where does Microsoft Outlook 2010 save my information and configurations? - Outlook - Office.com и CMD/BAT: использование стандартных GUI-диалогов выбора папки и файла, можно попробовать так:

Код:

@echo off
setlocal

for /f "tokens=2 delims=:" %%i in ('chcp') do (
	set sPrevCP=%%i
	chcp 1251 >nul
)

for /f "usebackq delims=" %%i in (
    `@"%systemroot%\system32\mshta.exe" "javascript:var objShellApp = new ActiveXObject('Shell.Application');var Folder = objShellApp.NameSpace('shell:Local AppData');try {new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder.Self.Path)};catch (e){};close();" ^
    1^|more`
) do set sLocalAppData=%%i

chcp %sPrevCP% >nul

if defined sLocalAppData (
    set sMSOutlookDataFilesPath=%sLocalAppData%\Microsoft\Outlook

    if exist "!sMSOutlookDataFilesPath!" (
        echo !sMSOutlookDataFilesPath!
    ) else (
        echo Папка [!sMSOutlookDataFilesPath!] не найдена.
    )
) else (
    echo Папка [shell:Local AppData] не найдена.
)

endlocal
exit /b 0

[SendMessage]

Можно еще так попробовать искать (не проверял):

Код:

for /f "delims=" %%a in ('dir "%userprofile%\Outlook" /b/s/ad ^| findstr /i/e "Outlook"') do set "OutlookDir=%%a"

[bombording]

Iska, почему то не работает. (

Но в данных случаях скрипт опять же будет искать, и тратить на это время.

Нельзя ли сделать так:

Код:

Проверка системы

Если "проверка системы" = xp  тогда:

outlookdir = %userprofile%\Local Settings\Application Data\Microsoft\Outlook      \\ папка если xp

Иначе

outlookdir = %userprofile%\AppData\Local\Microsoft\Outlook \\ папка если win7

то есть что бы скрипт не искал папку Outloook, а определял только версию системы.

\\UPD. Спасибо Iska всё работает.

[Iska]

Iska, почему то не работает. (

Ответ не очень содержательный. Опишите, что Вы делали, как делали, как определили, что «не работает». Что именно «не работает».

Но в данных случаях скрипт опять же будет искать, и тратить на это время. »

Нет, «искать и тратить на это время» не будет. Делается попытка получить папку LocalAppData по символьному имени от Проводника. Затем к ней дописывается «Microsoft\Outlook» и проверяется, существует ли такая папка.

[SendMessage]

Нельзя ли сделать так: Проверка системы Если "проверка системы" = xp тогда »

Код:

for /f "skip=1 tokens=1-2 delims=." %%a in ('wmic os get version') do set "ver=%%a.%%b"
if %ver% equ 5.1 echo Windows XP

5.0 - Windows 2000
5.2 - Windows Server 2003
6.0 - Windows Vista или Windows Server 2008
6.1 - Windows 7 или Windows Server 2008 R2