Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать файлы / 3 сообщений из 3, страница 1 из 1
12.09.2005, 09:12:32
    #33263248
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файлы
Как можно переименовать имя файла?
Конкретно: есть дир. с файлами как-то-

1_33_Петя_90.DFT
1_33_Вася_67.DFT
----------------, а надо

Петя_90.DFT
Вася_67.DFT
...
Рейтинг: 0 / 0
12.09.2005, 09:58:40
    #33263311
Переименовать файлы
Код: plaintext
Name "d:\1\1_33_Петя_90.DFT" As "d:\1\Петя_90.DFT"


Вот процедура для обработки всех файлов в каталоге.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub RenameFile( _
  strDir As String)
    Dim strFileName As String
    Dim intPos As Integer
    
    strFileName = Dir(strDir & "*")
    Do Until strFileName = ""
        intPos = InStr(strFileName, "_")
        intPos = InStr(intPos +  1 , strFileName, "_")
        Name strDir & strFileName As _
          strDir & Mid(strFileName, intPos +  1 )
        strFileName = Dir
    Loop
End Sub

Вызываешь так:
Код: plaintext
RenameFile("d:\1\")
...
Рейтинг: 0 / 0
12.09.2005, 10:29:35
    #33263392
vallot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файлы
Спасибо большое за помощь!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать файлы / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]