'
' PathFindExtension - Searches a path for an extension
'
' Author: Joe Strazzere
'
dim ptr as unsigned
a$="c:\test.exe"
ptr=External("shlwapi.dll","PathFindExtensionA",a$)
msgbox("The Extension portion of "+a$+" is ["+PeekString$(ptr)+"]",,"PathFindExtension")
