Get file extension

JA (5 Submissions) Files/File Controls/Input/Output VB 6.0 Unknown Difficulty Thu 24^th April 2003 Mon 8^th February 2021

Get file extension

Rate Get file extension

(1(1 Vote))


Dim Fname As String
Dim ExtName As String
ExtName = Mid$(Fname, InStrRev(Fname, "."))
'use InStrRev() to catch the last dot (filenames can contain more than one)

Download snippet Save to my list

Get file extension Comments

No comments yet — be the first to post one!

Get file extension

Get file extension Comments

Post a Comment