by Adash (3 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 25th December 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Get a file extension, in only one line
ext = Mid$(FileName$, InStr(1, FileName$, ".") + 1, 3)