| Вопрос: Помогите кто, чем. | Добавлено: 10.09.02 16:02 |
Автор вопроса:  spektr
|
| Как проверить существует ли файл: c:\safe\to910mo1.rar если существует то следующиму файлу присвоить новое имя c:\sent\to910mo2.rar и перенести его в папку c:\safe\ и так далее 3, 4, 5, 6.... если можно поподробней (обратите внимание на на название Dir, "910" - это число и месяц) Зарание всем ответившим спасибо. |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  LIS Вопросов: 7 Ответов: 256 |
Профиль | | #1 | Добавлено: 10.09.02 17:57 |
|
I gave answer for this question... This is a different story if you do not know how create a name... |
||
|
Номер ответа: 2 Автор ответа:  MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #2 | Добавлено: 10.09.02 18:03 |
|
Лиз прав. Извини спектр но, уже в двуч топикках отвечали... Ты начинаешь новый. В таком случае обьясни сначала чем тебя не устроили ответы. По десятому разу писать одно и то же неохото... |
||
|
Номер ответа: 3 Автор ответа:  LISВопросов: 7 Ответов: 256 |
Профиль | | #3 | Добавлено: 10.09.02 18:36 |
|
Thanks , MAGNUS ... |
||
|
Номер ответа: 4 Автор ответа: spektr Вопросов: 13 Ответов: 14 |
Профиль | | #4 | Добавлено: 11.09.02 12:14 |
|
А не идет вот что: Private Sub Form_Load() Dim nm, a1, a2, n1, a3, a4 As String Dim Number, Digits, MyString nm = Dir("c:\sent\tr911mo1.rar") n1 = Dir("c:\safe\tr911mo1.rar") a1 = ("tr911mo2.rar") a2 = ("tr911mo3.rar") a3 = ("tr911mo4.rar") a4 = ("tr911mo5.rar") ‘On Error Resume Next If Trim(nm) <> vbNullString Then Name "c:\safe\" + nm As "c:\sent\" + a1 End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a2 End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a3 - Вот здесь он затыкается пишет файл не обнаружен End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a4 End If End Sub Это наверное очень криво и наверное совсем не правильно но как сделать правильно я не знаю. Я же не крутой программер, а учусь и посоветовать или спросить кроме инета не где.
|
||
|
Номер ответа: 5 Автор ответа:  MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #5 | Добавлено: 11.09.02 14:31 |
| Хм... А Name ето у тебя какая то своя функция? | ||
|
Номер ответа: 6 Автор ответа: LISВопросов: 7 Ответов: 256 |
Профиль | | #6 | Добавлено: 11.09.02 15:29 |
|
To MAGNUS : < His logic(inside program) totally wrong .I do not time right now ... May be after meeting I will send to him piece of code... Good LUCK ! |
||
|
Номер ответа: 7 Автор ответа:  LISВопросов: 7 Ответов: 256 |
Профиль | | #7 | Добавлено: 11.09.02 15:31 |
|
NAME is standard command ... Sorry for mistake... |
||
|
Номер ответа: 8 Автор ответа: MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #8 | Добавлено: 11.09.02 15:49 |
|
Sorry. Fogot abou it. Да все верно. Смотри. Файл ты одим раз переименовал. То есть под тем именем он уже не существует, а там где ошибка ты его же опють переименовываешь.... а его там уже нету... смекаешь? |
||
|
Номер ответа: 9 Автор ответа: spektrВопросов: 13 Ответов: 14 |
Профиль | | #9 | Добавлено: 11.09.02 16:45 |
| Да нет не смекаю, я на этот код уже пол-дня смотрю не вьеду где накосячил, если ты видишь хоть галочку поставь. Спасибо. | ||
|
Номер ответа: 10 Автор ответа:  MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #10 | Добавлено: 11.09.02 16:56 |
|
nm = Dir("c:\sent\tr911mo1.rar") n1 = Dir("c:\safe\tr911mo1.rar") a1 = ("tr911mo2.rar") a2 = ("tr911mo3.rar") a3 = ("tr911mo4.rar") a4 = ("tr911mo5.rar") ‘On Error Resume Next If Trim(nm) <> vbNullString Then Name "c:\safe\" + nm As "c:\sent\" + a1 - nm=tr911mo1.rar>tr911mo2.rar End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a2 End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a3 ***nm=tr911mo1.rar но файла такого уже нет, он уже tr911mo2.rar вот потому и ошибка. End If
Вроде так.
|
||
|
Номер ответа: 11 Автор ответа:  CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #11 | Добавлено: 14.09.02 04:11 |
|
Магнус прав. Попробуй изменить на If Trim(n1) <> vbNullString Then FileCopy "c:\safe\" + nm , "c:\safe\" + a2 End If If Trim(n1) <> vbNullString Then Name "c:\safe\" + nm As "c:\safe\" + a3 - Вот здесь он затыкается пишет файл не обнаружен End If |
||
Страница: 1 |