>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

Using name expansion as shown below works fine:

  <b>COPY FILE (ADDBS(SYS(2023))+'*.cdx') TO (ADDBS(cShortPath) + '*.CDX')</b>


ADDBS() is native to VFP6, you can use the one in FoxTools prior to this.

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