Get File Format Using File Content

[yinkajewole]

how can i get the file format of pptx, docx, xlsx files with vba without using their extension?

 

[JustynaMK]

Maybe something like that?

Sub foo()
    Dim strPath As String
    Dim strExt As String
    
    strPath = "C:\Users\xxxxxx\Documents\test.xlsb"


    strExt = Right(strPath, Len(strPath) - InStrRev(strPath, "."))
    MsgBox strExt
End Sub

What do you mean by "without using their extension"?