Declare integer MoveFile in WIN32API string@, string@

Clear

cFrom = "C:\TEMP\MyTestFolder\Test"

cTo = "C:\TEMP\MyTestingFolder\Test"

If not Directory(cFrom)

Md (cFrom + "\Level2")

EndIf

If Directory(cTo)

Rd (cTo)

EndIf

If not Directory(JustPath(cTo))

Md JustPath(cTo)

EndIf

* 1=Success, 0=Failed

?MoveFile(@cFrom, @cTo)