December 1, 2005 - WinTask - PathFindExtension

'
' PathFindExtension - Searches a path for an extension
'
'

dim ptr as unsigned

a$="c:\test.exe"

ptr=External("shlwapi.dll","PathFindExtensionA",a$)

msgbox("The Extension portion of "+a$+" is ["+PeekString$(ptr)+"]",,"PathFindExtension")