merci
-------------------------------
Réponse au message :
-------------------------------
On fait comme ça :
procedure TForm1.Button2Click(Sender: TObject);
Var sr: TSearchRec;
begin
If FindFirst(IncludeTrailingPathDelimiter(dir1.Directory)+file1.Items[i], faAnyFile, Sr)=0
Then ShowMessage(IntToStr(sr.Size));
FindClose(sr);
end;
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
ben alors comment faire pour connaitre sa taille ?
-------------------------------
Réponse au message :
-------------------------------
C'est normal car tu essayes d'ouvrir une application qui doit être en cours d'exécution. Or en exécution, les fichiers .EXE sont vérouillés par windows.
Il est vrai que l'erreur n'est pas explicite...
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
c:\program files\global scapes\cute ftp pro\cftppro.exe
-------------------------------
Réponse au message :
-------------------------------
Quel nom de fichier essayes-tu d'ouvrir ?
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
les message derreur sont :
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 32'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
et :
---------------------------
Project1
---------------------------
I/O error 32.
---------------------------
OK
---------------------------
j'ai regarder il me fait les erreur a partir de 8 caractere je croi.
-------------------------------
Réponse au message :
-------------------------------
Quelle est l'erreur exacte stp ? Les espaces dans les noms de fichiers ne posent pas de problème.
D'autre part pour ajouter un '\' automatiquement en cas de besoin il faut faire :
dd:=IncludeTrailingPathDelimiter(dir1.Directory)+file1.Items[i];
AssignFile(f,dd);
...
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
quand jouvre un fichier avec assignfile et que je fait reset il me fait une erreur je pense que sa vient de la longueur du nom du fichier ou des espace (auto connection.exe par exemple).
dd:=dir1.Directory+file1.Items[i];
if copy(dir1.Directory,length(dir1.Directory),1)<>'\' then
dd:=dir1.Directory+'\'+file1.Items[i];
AssignFile(f, dd);
showmessage(dd);
Reset(f);
size:=FileSize(f);
CloseFile(f);
si sa peut vous aidez.
HELP ME PLEASE !