Discussion :

[JLUC1]

Bonjour à tous,

Je suis sous delphi 2005

Je suis à la recherche d'une méthode qui pourrait m'éviter de suprimer fichiers/dossiers, dans un repertoire.

En fait, dans mon code, je fais une recherche de certains fichiers/dossiers sur tous le disque dur, (ces noms se trouvent dans une stringlist en début de code).
Seulement, j'ai eu le cas que le nom d'un fichier recherché, existe aussi pour un autre logiciel..
Et dans ce cas, il est lui aussi supprimé, alros qu'il ne faut pas.
J'ai essayé une méthode, qui consistée a renommer le fichier a conserver, mais cele ne fonctionne pas toujours, surtout lorsque la ressource est utilisée par le système.

Voilà mon petit soucis..

Alors existe'il une fonction qui permettent "d'ignorer" un repertoire précis?
Ou alors une autre méthode, qui me semble mieux:

Je dois supprimer le fichier B qui contient X.exe
Seulement, le dossier B, existe en double sous un autre chemin, avec plusieurs fichiers/sousèdossiers dedans..
Et bien sur, il ne faut pas que je le supprime.

Comment faire, pour tester le contenu d'un dossier afin de le faire supprimer si le contenu correspond?

Je veux dire par là:

Si le dossier C:\Program Files\B contient X.exe, alors suppression de dossier B, sinon, pas de suppression.

Je pense que mon raisonnement est logique, mais pour la synthaxe, je bloque pas mal...


Merci d'avoir pris le temps de me lire, et merci pour l'aide

[defluc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not FileExists(Dossier + Fichier) then SupprimeDossier

[Gilbert Geyer]

Bonjour,

Si le dossier C:\Program Files\B contient X.exe, alors suppression de dossier B, sinon, pas de suppression.

Bigre ne serait-ce pas plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileExists('C:\Program Files\B\X.exe') 
then SupprimeDossier_B
else PasSupprimerDossier_B;

A+

[droggo]

Fio,

J'aurais plutôt limité la recherche aux répertoires où devraient se trouver les dossiers à supprimer (je suppose que tu les connais, sinon je ne vois pas trop où tu vas)

ET / OU maintenir une liste des répertoires à ne pas toucher.

[JLUC1]

Bonjour à tous,

Tout d'abord, désolé pour le délai de réponse, mais je n'étais pas disponible.

Ensuite, merci pour vos réponses.

bon, pour expliquer mon soucis plus en détail, je fais une recherche de manière récursives, de certains fichiers/dossiers, sur tout le disque dur (partition système).

il m'est arrivé, de croiser un fichiers ayant le même nom, mais dans un reprtoire qu'il ne faut pas toucher.
Et ce que je voudrais essayer de faire, c'est soit d'exclure certains repertoires de ma recherche, soit de tester si le repertoire contient bien ce que je veux supprimer, a condition, que ce même rep, soit le bon (je ne sais pas si c'est clair..)

Pour ma recherche, j'ai en début de code 2 Stringlist, l'une comprendsles fichiers, et l'autre les dossiers que je dois supprimer.

J'ai pensé, a faire une autre StringList, qui contient le nom des repertoires qui ne faut pas toucher, mais là encore, du jour au lendemain, un nouveau reprtoire, peut très bien contenir les fichiers que je recherche, et donc, causer des soucis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileExists('C:\Program Files\B\X.exe') 
then SupprimeDossier_B
else PasSupprimerDossier_B;

J'ai essayé ce code, amis sans résultat.

Enfin, j'ai plutôt modifié comme ceci (en gros):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ChDir(IncludeTrailingPathDelimiter(GetEnvironmentVariable('HOMEDRIVE')));
If FileExists('Dossier_B\X.exe') 
then SupprimeDossier_B
else PasSupprimerDossier_B;

Mais sans succés..Pourtant, je trouve cela logique!
Je me déplace dans le HomeDrive, je cherche si le Dossier_B contient X.exe, et je le supprime si c'est bon...

Mais je bloque quand même..

Merci par avance!

[Gilbert Geyer]

Bonjour,

Le bout de code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileExists('C:\Program Files\B\X.exe') 
then SupprimeDossier_B
else PasSupprimerDossier_B;

était simplement un exemple où le dossier "B" fait partie, dans l'arborescence du disque, de la branche (de cet arrbe) nommée 'Program Files' du disque C:.

Pour obtenir ton résultat pour l'arborescence du disque il faut traduire en généralisant par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileExists('C:\Branche1\Sous_Branche1\Sous_Branche2\ ...\Sous_brancheN_1\B\X.exe') 
then SupprimeDossier_B
else PasSupprimerDossier_B;

... la partie 'C:\Branche1\Sous_Branche1\Sous_Branche2\ ...\Sous_brancheN_1\B\' est le chemin d'accès au fichier 'X.exe' et il faut appeler la fonction FileExists avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileExists(monCheminDAcces+nomCourtDeMonFichier) 
then SupprimeDossier_B
else PasSupprimerDossier_B;

... et comme le dossier 'B' est la partie terminale de la string monCheminDAcces il faudra ajouter une condition suppllémentaire du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if (pos('\B\',monCheminDAcces)>0)
and (FileExists(tagada) then ...

... et comme t'as mis des trucs dans une stringlist, tu pourras trouver ici (voir le message du 06/12/2007, 16h52) :
http://www.developpez.net/forums/sho...hlight=Dossier
du code qui te place dans une StringList toute l'arborescence des dossiers et sous-dossiers d'un disque par récursivité indirecte. Les lignes de cette StringList correspondendent à monCheminDAcces0, monCheminDAcces1, etc.

A+

[edam]

il m'est arrivé, de croiser un fichiers ayant le même nom, mais dans un reprtoire qu'il ne faut pas toucher.
Et ce que je voudrais essayer de faire, c'est soit d'exclure certains repertoires de ma recherche,

je crois que tu as répondu toi même à la question

[JLUC1]

Bonjour à tous,

Décidement, j'accumule les retard de réponses..
Désolé.

je crois que tu as répondu toi même à la question

Oui, mais commet faire?
Entrer ces répertoires dans un string list, et ne pas les "compter" lors de la recherche?
Si oui, iol faut appeler quoi comme fonction pour cela?


@Gilbert Geyer

Je comprends vien ce que tu veux me dire, seulement, j'aimerais utiliser:

ChDir(IncludeTrailingPathDelimiter(GetEnvironmentVariable('HOMEDRIVE'))); ou SYSTEMDRIVE

Afin de rechecher par cette variable d'environnement.

Seulement lorsque je fais (ou dossier B est a conserver):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ChDir(IncludeTrailingPathDelimiter(GetEnvironmentVariable('HOMEDRIVE')))

If FileExists('B\X.exe') 
then PasSupprimerDossier_B;

Cele ne fonctionne pas.


Merci.

[Gilbert Geyer]

Bonjour,

j'aimerais utiliser: ChDir(IncludeTrailingPathDelimiter(GetEnvironmentVariable('HOMEDRIVE'))); ou SYSTEMDRIVE

Pour utiliser ChDir(S: string); il faut que la string S donne le chemin d'accès complet au dossier "B" ciblé comme par exemple S:='D:\Branche1\Sous_Branche1\Sous_Branche2\ ...\Sous_brancheN_1\B\'; c'est à dire la partie de l'arborescece qui amène au dossier ciblé.

'HOMEDRIVE' n'a aucun intérêt si ton appli est logée dans le drive 'C:\...' et que le dossier ciblé se trouve dans le drive 'D:\...'.

A+