Переименование файлов

@Egor.V.A · Регистрация: 01.06.2012

Author24 — интернет-сервис помощи студентам

Народ, оживите код, надо переименовать 560 файлов

Visual Basic

Sub имя()
Dim sFileName As String, sNewFileName As String
 
For i = 1 To 560
    sFileName = "C:\Documents and Settings\Vlasov\Рабочий стол\Новая папка (2)\CreatedynamicwebsitesusingPHPMySQLjavascriptandCSS2ed_Страница_001.jpg"
    sNewFileName = "C:\Documents and Settings\Vlasov\Рабочий стол\Новая папка (2)\Страница_001.jpg"
    Name sFileName As sNewFileName
Next i
End Sub

@kalbasiatka · 15.01.2015, 18:13

как будет называться второй файл?

Аксима · 15.01.2015, 18:39

Здравствуйте, Egor.V.A,

Переписал бы ваш код следующим образом:

Visual Basic

Sub имя()
    Const fold = "C:\Documents and Settings\Vlasov\Рабочий стол\Новая папка (2)\"
    Const book = "CreatedynamicwebsitesusingPHPMySQLjavascriptandCSS2ed_"
    Const page = "Страница_"
    For i = 1 To 560
        Name fold & book & page & Format(i,"000") & ".jpg" As fold & page & Format(i,"000") & ".jpg" 
    Next i
End Sub

С уважением,

Аксима

@kalbasiatka 414 / 262 / 82 Регистрация: 27.10.2012 Сообщений: 860
	15.01.2015, 18:13	2
	как будет называться второй файл? 0

	15.01.2015, 18:39

Опции темы