×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Xojo
Posted by: Radium Kymist
Added: Feb 7, 2015 1:01 PM
Views: 16
Tags: no tags
by simulanics

Get the file extension from the FolderItem
  1. Function extension(Extends f As FolderItem) As String
  2.   If f.Directory Or CountFields(f.Name, ".") = 0 Then Return ""
  3.   Return NthField(f.Name, ".", CountFields(f.Name, "."))
  4. End Function