[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Функция для изменения расширения файла - Visual Basic (Функция для изменения расширения файла - Visual Basic)
Функция для изменения расширения файла - Visual Basic
ilimДата: Вторник, 15.11.2011, 23:09 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
Функция для изменения расширения файла - Visual Basic
===================================================
Function ChangeFileExtension(FileName As String, Extension As String, Optional AddIfMissing As Boolean) As String
Dim i As Long
For i = Len(FileName) To 1 Step -1
Select Case Mid$(FileName, i, 1)
Case "."
ChangeFileExtension = Left$(FileName, i) & Extension
Exit Function
Case ":", "\"
Exit For
End Select
Next
If AddIfMissing Then
ChangeFileExtension = FileName & "." & Extension
Else
ChangeFileExtension = FileName
End If
End Function

Private Sub Command1_Click()
MsgBox ChangeFileExtension("ggg.htm", "txt")
MsgBox ChangeFileExtension("ggg", "txt", True)
End Sub


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Функция для изменения расширения файла - Visual Basic (Функция для изменения расширения файла - Visual Basic)
Страница 1 из 11
Поиск: