• Home
 · 
• Files/File Controls/Input/Output
 · 
• Gets the file extention of a file name up to 1 million characters long.

Gets the file extention of a file name up to 1 million characters long.

Gets the file extention of a file name up to 1 million characters long.

Rate Gets the file extention of a file name up to 1 million characters long.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  Dim i As Long
  For i = 2 To 1000000
    If Left(Right(FileName, i), 1) = "." Then
      If WithDot = True Then
        FileExtention = Right(FileName, i)
        Else
        FileExtention = Right(FileName, i - 1)
      End If
      Exit Function
    End If
  Next
End Function

---=== How to Use ===---

' To get the file extention with the dot at the left
variable = FileExtention(FILENAME, True)

' To get the file extention without the dot at the left
variable = FileExtention(FILENAME, False)