>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.

What is not working?