Par2: Get Path components 2001-05-01 -- Jeff Slarve Map
Module('')
FNSplit(*CSTRING Path, *CSTRING Drv, *CSTRING Dir,|
*CSTRING Nme, *CSTRING Ext),|
SIGNED,PROC,RAW,NAME('_fnsplit')
end
end
GetFileNameFromPath PROCEDURE (String pPath)
Path CString(300)
Drive CString(10)
Dir CString(200)
Name CString(200)
Ext CString(30)
CODE
If ~pPath
Return('')
end
Path=Clip(pPath)
FNSplit(Path,Drive,Dir,Name,Ext)
Return(Name)
Printed May 4, 2024, 3:32 am This article has been viewed/printed 35110 times. |