timbuk
Messages postés74Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention26 février 2012
-
9 oct. 2011 à 16:02
cs_bonanux
Messages postés11Date d'inscriptionlundi 21 avril 2003StatutMembreDernière intervention19 février 2012
-
9 oct. 2011 à 21:13
Salutations,
J'ai un soucis avec un MoveFile qui me renvois une erreur 3 (Path not found) alors que le fichier est bien présent.
Voila les lignes:
fichier := ExtractFilePath(ParamStr(0))+'decharge_mods\'+DechargesListBox.Items.Strings[DechargesListBox.ItemIndex];
nouilleFichier := ExtractFilePath(ParamStr(0))+'mods\scripts\'+DechargesListBox.Items.Strings[DechargesListBox.ItemIndex];
ShowMessage(fichier);
ShowMessage(nouilleFichier);
if Not MoveFile(PChar(fichier), PChar(nouilleFichier)) Then
ShowMessage(IntToStr(GetLastError));
Les deux premiers ShowMessage me donnent ceci:
C:\Users\TimBuk\Documents\RAD Studio\Projects\PZL\Debug\Win32\mods\scripts\test.txt (qui existe bien)
C:\Users\TimBuk\Documents\RAD Studio\Projects\PZL\Debug\Win32\decharge_mods\test.txt (qui devrait être crée)
Et le troisième me renvoit 3.
Si quelqu'un a une idée, je suis preneur
Merci d'avance
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 201413 9 oct. 2011 à 18:17
Salut,
fichier := ...
nouilleFichier := ...
dir:= ExpandFileName(nouilleFichier + '\..');
if not FileExists(fichier) then
ShowMessage('"' + fichier + '" pas trouvé');
if not DirectoryExists(dir) then
ShowMessage('"' + dir + '" pas trouvé');
if Not MoveFile(PChar(fichier), PChar(nouilleFichier)) Then
ShowMessage(IntToStr(GetLastError));