gsMyLocalHFPath is string = SysDirStorageCard() + fSep() + "MyApplication Data" + fSep()
sPassword is string = "My password"
NextTitle("Copying the Category file")
HourGlass(True)
IF NOT HCopyFile("", ...
gsMyLocalHFPath + Category.Name + ".fic", sConnection, Category.Name + ".fic", ...
hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category.Name + " locally")
END
NextTitle("Copying the BankAccount file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + BankAccount.Name + ".fic", ...
sConnection, BankAccount.Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Category.Name + " locally")
END
NextTitle("Copying the Operations file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + Operations.Name + ".fic", ...
sConnection, Operations.Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + Operations.Name + " locally")
END
NextTitle("Copying the SubCategory file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + SubCategory.Name + ".fic", ...
sConnection, SubCategory.Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + SubCategory.Name + " locally")
END
NextTitle("Copying the User file")
HourGlass(True)
IF NOT HCopyFile("", gsMyLocalHFPath + User.Name + ".fic", ...
sConnection, User.Name + ".fic", hCopyIndex, "", sPassword) THEN
Error("Error while copying the file " + User.Name + " locally")
END
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
Info("The files have been copied onto the Smartphone.")