// sConnection is a connection defined programmatically.

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
// Close the houglasses 
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)

Info("The files have been copied onto the Smartphone.")