| Вопрос: переименовать - миссия выполнима?! | Добавлено: 22.10.03 09:48 |
Автор вопроса:  -=sashOK=-
|
|
Люди, как можно переименовать файл ? Зарание спасибо.
|
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 22.10.03 11:48 |
|
полный путь к файлу, который надо переименовать strOldFile и полный путь и имя файла (одновременно можно и переместить) в какое надо переименовать его -- strNewFile Dim strOldFile As String, strNewFile As String ‘запрет перемещения в той же папке If strOldFile = strNewFile Then MsgBox "Введите корректный путь.", vbExclamation, Me.Caption Exit Sub End If
Name strOldFile As strNewFile MsgBox "Вы переименовали файл.", vbInformation, Me.Caption 'И потом удалить исходный файл Kill strOldFile Возможно, придется снять с файла аттрибуты, а то если они установлены (только для чтения , и т.д.) удалить не получится (SetAttr) |
||
|
Номер ответа: 2 Автор ответа: crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #2 | Добавлено: 22.10.03 13:29 |
|
Dim s As File, f As Folder, fso As New FileSystemObject Set s = fso.GetFile("C:\autoexec.bat") s.Move "C:\autorun.bbb" |
||
|
Номер ответа: 3 Автор ответа:  crackoffICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #3 | Добавлено: 22.10.03 13:36 |
|
Прости, забыл. Не забудь добавить scrrun.dll в project > references |
||
|
Номер ответа: 4 Автор ответа:  -=sashOK=- Вопросов: 10 Ответов: 19 |
Профиль | | #4 | Добавлено: 22.10.03 20:52 |
|
спасибо типа , я сталкивался с .Move ,но не понял чё энто. А на fso у мня вессь проект написан |
||
|
Номер ответа: 5 Автор ответа:  БраТОк ICQ: 250394886 Вопросов: 2 Ответов: 9 |
Профиль | | #5 | Добавлено: 23.10.03 08:44 |
| Set s = fso.GetFile("C:\autoexec.bat") а остальную часть спроси у sKit... | ||
Страница: 1 |