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 : CreateFolder Method
2. FileSystemObject : MoveFolder Method
3. FileSystemObject : GetFile Method
4. FileSystemObject : CopyFolder Method
5. Excel-VBA : Insert Multiple Images from a Folder to Excel Cells