Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
GB826
-
- Постоялец
-
-
- Сообщения: 312
- Зарегистрирован: 04.08.2005 (Чт) 0:58
- Откуда: Планета #3
-
GB826 » 15.11.2005 (Вт) 15:51
Захотел к существующему файлу приписать еще одно расширение , и не получилось :о/
код:
- Код: Выделить всё
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
-
- Доктор VB наук
-
-
- Сообщения: 2509
- Зарегистрирован: 19.09.2005 (Пн) 17:17
- Откуда: г. Москва
-
keks-n » 15.11.2005 (Вт) 17:07
Гм, то что ты написал работает без сучка, без задоринки (проверил); Ищи ошибку в другом месте.
-
Alexanbar
-
- Продвинутый гуру
-
-
- Сообщения: 1727
- Зарегистрирован: 13.04.2004 (Вт) 23:04
- Откуда: Волгоградская обл.
-
Alexanbar » 15.11.2005 (Вт) 18:05
Добавь строку перед последней:
msgbox sPath & VbCrLf & sNewName
Возможно, что файл с sNewName уже есть, или в его имени к-л другая ошибка.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 197