Строки и файлы

[GB826]

Захотел к существующему файлу приписать еще одно расширение , и не получилось :о/

код:

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

dim sPath as string
dim sNewName as string

'Здесь получаю имя файла

'sNewName = Mid$(sPath, 1, InStr(1, sPath, ".") - 1) & ".old" - вот так все ОК, но это просто изменение расширения
sNewName=sPath & ".old"  ' - здесь никак не хочет :о/ - хотя это просто соединение двух строк. Сама строка sNewName не меняется 

Name sPath As sNewName

[keks-n]

Гм, то что ты написал работает без сучка, без задоринки (проверил); Ищи ошибку в другом месте.

[Alexanbar]

Добавь строку перед последней:

msgbox sPath & VbCrLf & sNewName

Возможно, что файл с sNewName уже есть, или в его имени к-л другая ошибка.