FileSystemObject : GetExtensionName Method

Description:

Returns extension of a file, return empty string if file doesn’t exist.

Format : 

objectOfFileSystemObject. GetExtensionName(filepath)

• objectOfFileSystemObject : As the names says, it’s a FileSystemObject.

Arguments: 

• filepath
  • Mandatory
  • Type:     String
  • filepath , whose extension to be return.

Function FnGetExtensionName (strFilePath)
      Set fso = CreateObject("Scripting.FileSystemObject")
      strFileExtension = fso. GetExtensionName (strFilePath)     
      FnGetExtensionName = strFileExtension
End Function

Msgbox FnGetExtensionName ("c:\NewFolder\file.txt")

Also Read:

1. VBA-Excel: Add/Insert multiple objects from a folder in an Excel Document.
2. FileSystemObject:OpenTextFile Method
3. FileSystemObject : GetAbsolutePathName Method
4. FileSystemObject : FileExists Method
5. FileSystemObject : GetParentFolderName Method