LPTSTR PathCombine(
  __out     LPTSTR lpszDest,
  __in_opt  LPCTSTR lpszDir,
  __in      LPCTSTR lpszFile
);
 

 
DECLARE INTEGER PathCombine IN shlwapi;
    STRING @lpszDest,;
    STRING lpszDir,;
    STRING lpszFile
 

 
FUNCTION VfpPathCombine(p1, p2, p3, p4, p5) As String
    LOCAL cBuffer, cPath1, cPath2, nIndex, nCount
    nCount = PCOUNT()
 
    DO CASE
    CASE nCount = 0
        RETURN ""
    CASE nCount = 1
        RETURN p1
    ENDCASE
 
    cBuffer = m.p1
 
    FOR nIndex=2 TO nCount
        cPath1 = STRTRAN(m.cBuffer, CHR(0), "")
        cPath2 = EVALUATE("m.p" + TRANSFORM(m.nIndex))
        cBuffer = REPLICATE(CHR(0), MAX_PATH)
        PathCombine(@cBuffer, cPath1, cPath2)
    NEXT
RETURN STRTRAN(m.cBuffer, CHR(0), "")