Страница: 1 |
Вопрос: Помогите кто, чем. | Добавлено: 10.09.02 16:02 |
Автор вопроса: ![]() |
Как проверить существует ли файл: c:\safe\to910mo1.rar если существует то следующиму файлу присвоить новое имя c:\sent\to910mo2.rar и перенести его в папку c:\safe\ и так далее 3, 4, 5, 6.... если можно поподробней (обратите внимание на на название Dir, "910" - это число и месяц) Зарание всем ответившим спасибо. |
Ответы | Всего ответов: 11 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 430 |
Профиль | Цитата | #2 | Добавлено: 10.09.02 18:03 |
Лиз прав. Извини спектр но, уже в двуч топикках отвечали... Ты начинаешь новый. В таком случае обьясни сначала чем тебя не устроили ответы. По десятому разу писать одно и то же неохото... |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 7 Ответов: 256 |
Профиль | Цитата | #3 | Добавлено: 10.09.02 18:36 |
Thanks , MAGNUS ... |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() Вопросов: 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 430 |
Профиль | Цитата | #5 | Добавлено: 11.09.02 14:31 |
Хм... А Name ето у тебя какая то своя функция? |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 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 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 7 Ответов: 256 |
Профиль | Цитата | #7 | Добавлено: 11.09.02 15:31 |
NAME is standard command ... Sorry for mistake... |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 430 |
Профиль | Цитата | #8 | Добавлено: 11.09.02 15:49 |
Sorry. Fogot abou it. Да все верно. Смотри. Файл ты одим раз переименовал. То есть под тем именем он уже не существует, а там где ошибка ты его же опють переименовываешь.... а его там уже нету... смекаешь? |
Номер ответа: 9 Автор ответа: ![]() ![]() ![]() Вопросов: 13 Ответов: 14 |
Профиль | Цитата | #9 | Добавлено: 11.09.02 16:45 |
Да нет не смекаю, я на этот код уже пол-дня смотрю не вьеду где накосячил, если ты видишь хоть галочку поставь. Спасибо. |
Номер ответа: 10 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Разработчик 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 |
|