Какой-то трабл с переименованием одного файла

[Pantalone]

Вот такая конструкция:

Код: Выделить всё

Dim s1 As String
Dim s2 As String

s1 = "H:\Temp\VBExplorer-II\VBExplorer-II-0018.log"

s2 = "H:\Temp\VBExplorer-II\VBEXPL~1.log"

Name s1 As s2

Выдает File already exists
Подскажите решение, желательно без переименования в промежуточные варианты.

[Lumen]

GetShortPathName?

[Pantalone]

Ну это понятно, что путь короткий каким-то боком мешает, но как быть-то?

[Matew]

GetLongPathName?
а файл не занят?

[tyomitch]

Ничего не поможет. Реально, у одного файла два имени. Они не пропадут, пока его не переименовать в имя, которое ещё не занято.