Некорректное определение короткого пути к директории

[voam]

Добрый день!

Помогите, пожалуйста, разобраться в причине следующей проблемы.
Сразу отмечу, что проблема зафиксирована на нескольких машинах.

Я пытаюсь получить короткое имя файла или директории, используя следующий тестовый код:

Sub TestExtracting()
Dim Fsys As Scripting.FileSystemObject
Set Fsys = New FileSystemObject
Debug.Print Fsys.GetFile("E:\Temp\Программные файлы\Вордпадтруляля\абвгдеёжз.123").ShortName
Debug.Print Fsys.GetFolder("E:\Temp\Программные файлы\Вордпадтруляля\").ShortPath
End Sub

И вот результат преобразования:

016C~1.123 ' для имени файла
E:\Temp\C18B~1\DB57~1 ' для пути к директории

Т.е. ожидаемых абвгде~1.123 и E:\Temp\Програ~1\Вордпа~1 функции не возвращают.
Я пробовал напрямую использовать API-функцию GetShortPathName() - результат тот же. Пробовал вызывать функцию ExtractShortPathName в Delphi-приложении - снова тот же результат.
Очевидно, проблема какая-то системная ....
Подскажите, пожалуйста, в чем может быть причина?.. Очень нужно!

Заранее большое спасибо за помощь!

[EducatedFool]

Т.е. ожидаемых абвгде~1.123 и E:\Temp\Програ~1\Вордпа~1 функции не возвращают.

А почему Вы думаете, что именно такой результат - правильный?

Все программы выдают подобные короткие имена для папок\файлов, если в пути содержатся символы кириллицы:




Ещё говорят, что помогает переустановка Windows, а также

Борется присваиванием NtfsDisable8dot3NameCreation=0 в HKLM\SYSTEM\CurrentControlSet\Contr ol\FileSystem

Еще кое-что нашел:

GetShortPathName , она же GetShortPathNameA работает правильно, поскольку это всего лишь заглушка, реально работает GetShortPathNameW но для этого нужно преобразовать из ANSI в Юникод, но правильно система это может сделать только в рамках локализация и если локализация не русская, то и преобразование будет неверное. Спасение только в прямой работе с Юникодом, пока единственная версия Дельфи, которая это умеет - это 2009

Подробнее смотрите здесь

[voam]

Сообщение от EducatedFool

А почему Вы думаете, что именно такой результат - правильный?

Потому мне именно это нужно ... )))

Но, к сожалению, не все так просто, как может показаться на первый взгляд ...

EducatedFool, большое Вам спасибо за информацию! Видимо, придется искать какие-то альтернативные пути решения своей задачи ...

P.S.
Кстати, проверил первое предположение про запись в реестре - такое же значение у меня в системе уже установлено и, следовательно, этот метод не работает.

[AnTe]

вот надо же, сегодня столкнулся с этой проблемой, и через гугль вышел на старый добрый форум, в свеженькую тему, появившуюся день в день, именно сегодня

EducatedFool, объяснения доходчивые и короткие, спасибо, а с альтернативными путями никто не поможет?

Сообщение от voam

Видимо, придется искать какие-то альтернативные пути решения своей задачи ...

я натолкнулся только на http://www.delphisources.ru/pages/fa...iles_name.html

что-то не слишком впечатляет результат (C:\fff\wwwwwwww\eeeeeee\QWEQWE\Гла вный пример.txt в C:\fff\wwwwwwww\..\Главный пример.txt)

может, кто-нибудь встречал готовое решение, укорачивающее названия папок? Вроде ничего сложного в реализации нет, но не хочется изобретать велосипед.

[VictorM]

EducatedFool очень заинтересовал скриншот в Вашем сообщении, а именно пункт контекстного меню - "Копировать путь".
Поскажите пожалуйста, как можно создать такое.
Спасибо.

[EducatedFool]

EducatedFool очень заинтересовал скриншот в Вашем сообщении

Это известная бесплатная программа Path2Clipboard
Присутствует в большинстве пиратских сборок Windows

[VictorM]

Это известная бесплатная программа Path2Clipboard

Спасибо.
Оказывается у меня нет этой программки, нужно найти.)
**
Нашел, скачал, установил!
Еще раз большое спасибо

[EducatedFool]

что-то не слишком впечатляет результат (C:\fff\wwwwwwww\eeeeeee\QWEQWE\Гла вный пример.txt в C:\fff\wwwwwwww\..\Главный пример.txt)

Я в таких случаях просто вывожу строку "C:\fff\...\Главный пример.txt" либо QWEQWE\Главный пример.txt,
причем не усложняя код:
ТекстДляВывода= "C:\fff\...\" & ИмяФайла


А вообще для таких целей придумана специальная API-функция PathCompactPath
http://www.microsoft.com/Rus/Msdn/Ac...ystem/276.mspx


Вот вариант реализации обрезки пути без WinAPI: (взято здесь)

Function LongDirFix$(Incoming$, Max%)
    Dim i%, LblLen%, StringLen%, TempString$
    TempString$ = Incoming$
    If Len(TempString$) <= Max% Then
        LongDirFix$ = TempString$: Exit Function
    End If
    LblLen% = Max% - 6
    For i% = Len(TempString$) - LblLen% To Len(TempString$)
        If Mid$(TempString$, i%, 1) = "\" Then Exit For
    Next
    LongDirFix$ = Left$(TempString$, 3) + "..." + _
                  Right$(TempString$, Len(TempString$) - (i% - 1))
End Function

Sub ПримерИспользования()
    ДлинныйПуть$ = "C:\Documents and Settings\Игорь\Рабочий стол\CropPictures.xls"
    КороткийПуть$ = LongDirFix$(ДлинныйПуть$, 40)
    
    Debug.Print LongDirFix$(ДлинныйПуть$, 40) ' возвращает C:\...\Рабочий стол\CropPictures.xls
    Debug.Print LongDirFix$(ДлинныйПуть$, 30) ' возвращает C:\...\CropPictures.xls
End Sub