Messages d'erreur... [Résolu]

hfr11 21 Messages postés mardi 17 décembre 2002Date d'inscription 16 mai 2017 Dernière intervention - 26 sept. 2006 à 14:54 - Dernière réponse : f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention
- 27 sept. 2006 à 19:17
Bonjour,

Comment faire sur une suppression de fichiers :

- Pour que tous les fichiers soient supprimés quels que soient les attributs

- Pour qu'aucun message d'erreur n'apparaisse si un fichier ne peut être supprimé ?

- Sous NT, comment prendre possession du fichier ?


        If Dflg=False Then Begin

          Application.OnException := Form1.AppException;

          FileOpStruct.Wnd := 0;

          FileOpStruct.wFunc := FO_DELETE;

          FileOpStruct.pFrom := PChar(Dossier);

          FileOpStruct.pTo := Nil;

          FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;

          FileOpStruct.lpszProgressTitle := PChar(Dossier);

          Try

            {$I-}

            ShFileOperation(FileOpStruct);

            {$I+}

            If IOResult=0 Then Result:=True Else Result:=False;

          Except

            Result:=False;

          End;


Merci à tous, Patrice

Ing. Syst. sous env. NT et 2000
Interressé par tout ce qui touche à la programmation d'outils systèmes de gestion réseau, d'utilisateurs, de machines distantes.
Merci, cordialement, bon courage à tous, P. C.
Afficher la suite 

3 réponses

Répondre au sujet
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 27 sept. 2006 à 19:17
+3
Utile
le probleme des FileOp, meme si c'est carrement pratique, c'est justement les problemes qu'ils peuvent engendrer...
le mieux encore, pour controler toute la chaine de recherche/suppression, serait de travailler avec une fonction recurssive de recharche et utiliser DeleteFile dont on pourrat gerrer le retour et donc empecher la suppression du repertoire si un fichier n'as pus etre supprimé.

<hr size="2" width="100%" />Croc (click me)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de f0xi
Utilisateur anonyme - 26 sept. 2006 à 15:56
0
Utile
Salut,

Ta function permet de supprimer un répertoire : pas un simple fichier.

Pour éviter les erreurs tu peux utiliser Try Except.
Cependant si un fichier ne peux pas etre supprimé il en sera de meme du dossier vide.

Ta fonction permet de supprimer les fichiers d'un dossier quel que soit leurs attribues.

Qu'entends tu par prendre possession ?
Commenter la réponse de Utilisateur anonyme
hfr11 21 Messages postés mardi 17 décembre 2002Date d'inscription 16 mai 2017 Dernière intervention - 26 sept. 2006 à 16:07
0
Utile
Salut, merci de ta réponse.

La solution "Try except" n'empêche pas les messages d'erreur d'entrée sortie... J'ai essayé !

Prendre possession : Sous NT l'untilisateur qui a créé le fichier en
est propriétaire, pour éviter certaines contraintes il peut être
intéressant de prendre possession du dit fichier, c'est à dire en
devenir le propriétaire et avoir donc tous les droits possibles sur ce
fichier.

Je sais que je supprime un dossier et que non vide je plante, j'ai
juste posté le code pour montrer sur quoi je travaillais. (copié
d'ailleurs d'un code posté ici).


Merci encore, Patrice

Ing. Syst. sous env. NT et 2000
Interressé par tout ce qui touche à la programmation d'outils systèmes de gestion réseau, d'utilisateurs, de machines distantes.
Merci, cordialement, bon courage à tous, P. C.
Commenter la réponse de hfr11

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.