Bonjour,
Voila je cherche à recuperer des fichiers sur un pocket pc à l'aide d'une appli foxpro.
J'ai integré le code suivant dans mon appli :

DECLARE INTEGER CeRapiInit IN rapi

DECLARE INTEGER CeCopyFile IN rapi;     STRING  lpExistingFileName,;     STRING  lpNewFileName,;     INTEGER bFailIfExists

CeRapiInit()
CeCopyFile("c:\temp\test.txt", "\temp\test.txt", 1)
Mais cela ne marche pas. Sur internet j'ai trouvé

Parameters:

lpExistingFileName [in] Long pointer to a null-terminated string that specifies the name of an existing file. lpNewFileName [in] Long pointer to a null-terminated string that specifies the name of the new file. bFailIfExists [in] Boolean value that specifies how this operation is to proceed if a file of the same name as that indicated by lpNewFileName already exists.

Mais tous cela ne m'aide pas beaucoup. Quelqu'un a t'il deja fait cela ?

Merci
duck88

Un peu plus complexe que ca ce genre de communication. Les chemins (de et à ) doivent traduit en Unicode avec STRCONV FUNCTION ToUnicode(cStr) RETURN STRCONV(cStr+CHR(0), 5)

J'ai fait ce que tu m'a dis :

DECLARE INTEGER CeRapiInit IN rapi

DECLARE INTEGER CeCopyFile IN rapi;

STRING lpExistingFileName,;

STRING lpNewFileName,;

INTEGER bFailIfExists

&& on utilise la librairie RAPI.dll

mon_chemin = "c:\temp2\allsortie.txt"

ma_destination = "\Temp\allsortie.txt"

monchemin2 = STRCONV(mon_chemin+CHR(0), 5)

madestination2 = STRCONV(ma_destination+CHR(0), 5)

toto = CeRapiInit()

MESSAGEBOX(toto)

toto1 = CeCopyFile(monchemin2, madestination2, 1)

MESSAGEBOX(toto1)

Mais aucun resultat. toto et toto1 renvoient 0.
Une solution ?

duck88

toto = CeRapiInit() La lgne ci-haut doit surement te donner un erreur, a moins que tu ai la classe CeRapiInit(), que ne semble pas etre le cas. Si c'est le cas, enleve la ligne. FUNCTION CopyFile(cSourceName, cTargetName) As Boolean IF CeCopyFile(m.ToUnicode(cSourceName),; ToUnicode(m.cTargetName), 1) = 0 RETURN .F. ENDIF RETURN .T.