VB6 Code - Fungsi Untuk Mengganti Extension Sebuah File

Mengenai fungsi VB6 untuk mengganti extension sebuah file. adapun fungsi VB6 untuk mengganti extention sebuah file adalah sebagai berikut:

Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String)
 Dim str() As String, NewFile As String
 If InStr(1, FileName, ".") Then
     str = Split(FileName, ".")
     NewFile = Replace(FileName, str(UBound(str)), Extention)
     Name FileName As NewFile
 Else
     Name FileName As FileName & "." & Extention
 End If
End Function

Cara penggunaan fungsi untuk mengganti extension sebuah file:

Private Sub Form_Load()
 Call ChangeFileExt("C:\bo.ot.tmp", "exe")
End Sub