This isn't working, is there a better/best way to do this with/out macro expansion?

cPath = alltrim(ThisForm.cDBCPath1.Value)
Local cShortPath, nSPathLen
DECLARE INTEGER GetShortPathName IN KERNEL32 ;
STRING lpszLongPath, STRING lpszShortPath, INTEGER cchBuffer
cShortPath = Replicate(chr(0),512)
nSPathLen = GetShortPathName(Fullpath(cPath), @cShortPath, 512)
cShortPath = Left(cShortPath, nSPathLen)
   	copy file sys(2023)+'\*.cdx' to &cShortPath
	copy file sys(2023)+'\*.cdx' to &cShortPath
	copy file sys(2023)+'\*.dbc' to &cShortPath
	copy file sys(2023)+'\*.dbf' to &cShortPath
	copy file sys(2023)+'\*.dct' to &cShortPath
	copy file sys(2023)+'\*.dcx' to &cShortPath
	copy file sys(2023)+'\*.fpt' to &cShortPath

Thanks for looking.