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 : DeleteFile Method
2. VBA-Excel: Add/Insert multiple objects from a folder in an Excel Document.
3. FileSystemObject : CopyFolder Method
4. FileSystemObject : CopyFile Method
5. FileSystemObject : GetFile Method