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. FileSystemObject : GetDriveName Method
2. FileSystemObject : FileExists Method
3. FileSystemObject : FolderExists Method
4. Excel-VBA : Insert Multiple Images from a Folder to Excel Cells