local cURL1 := "http://my_site.example.com/my_files/test_move_org.zip"
local cURL2 := "http://my_site.example.com/my_files/test_move_dest.zip"
local cUserPwd := "[email protected]:my_password"
local aInfo := {}
local nRet := 0
conout("* mudando nome de arquivo remoto")
nRet = WDClient("MOVE", "", cURL1, cURL2, cUserPwd, @aInfo)
if nRet == 0
conout("* mudança de nome de arquivo remoto bem sucedida, verifique no site")
else
conout("* erro " + AllTrim(Str(nRet)) + " na mudança de nome de arquivo remoto")
conout("* httpRespCode=" + AllTrim(Str(aInfo[1]))
conout("* erro2=" + AllTrim(Str(aInfo[2]))
conout("* erro3=" + AllTrim(Str(aInfo[3]))
endif |