Vider un répertoire

Version imprimable

Vider un répertoire

Bonjour,

Je souhaite vider un répertoire :
J'ai testé via les deux solutions proposés par le forum et la faq et dans les deux cas, ca ne fonctionne pas ...

Premiere solution :

Code:

1
2
3
4
5
6
7
8
9
10
TStringList *Extensions2 = new TStringList; // On construit la liste des extensions
                             Extensions2->Add(".*");
                             Extensions2->Add("*.*");
                             Extensions2->Add("*.*/0");
                        // Appel à notre méthode, avec pour liste des fichiers, les items de la ListBox.
                             Search(tmp1, Extensions2, LBtempdocenvoidxcarebis->Items);
                               for ( k = 0 ; k < (LBtempdocenvoidxcarebis->Items->Count) ; k++)
                                   {   if((DeleteFile(LBtempdocenvoidxcarebis->Items->Strings[k])) == true)
                                           ShowMessage("Message supprimé");
                                    }

Le répertoire est bon car quand j essaye avec un type spécifique doc, txt, le travail est fait ( les fichiers de tel type ont été supprimé) donc le probleme est dans les extensions : je n ai pas trouvé comment faire en sorte d ajouter tous les fichiers :/

Deuxieme méthode :

Code:

1
2
3
4
5
6
7
8
9
10
                                   SHFILEOPSTRUCT FileOpStr;
                        ZeroMemory(&FileOpStr, sizeof(FileOpStr));
                        FileOpStr.hwnd = Application->Handle;
                        FileOpStr.fFlags = FOF_NOCONFIRMATION ;
                        FileOpStr.wFunc = FO_DELETE;
                        AnsiString tmp9 = tmp1 + "*.*\0";
                         ShowMessage(tmp9);
// il m'affiche ici C:\Test\*.*
                        FileOpStr.pFrom = tmp9.c_str();
                        SHFileOperation(&FileOpStr);

Et j ai une erreur :
Impossible de supprimer Fichier : Impossible de lire à partir du fichier ou de la disquette source

Merci d'avance pour votre aide !

Salut !

Pour la deuxième méthode, il doit y avoir un problème avec le buffer pFrom qu'il faut, il me semble, gérer comme un tableau de char (et non pas sous la forme c_str() ).
pFrom doit se terminer par un double NUL : il faut un NUL après le NUL de la dernière chaîne.

On peut le penser comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 AnsiString N; N = N + "*.*"; int n = N.Length() + 2; // nombre de char dans N + 2 NUL char *pFrom = new char[n]; // à la bonne dimension strcpy(pFrom, N.c_str()); // copie N + 1 NUL // s'assurer d'avoir un dernier char NUL à la suite du NUL de la chaîne pFrom[n-1] = 0; //.. delete [] pFrom;
A plus !

12/12/2008, 17h13
blondelle

Salut Djang0
Regarde ce lien il repond peu etre a ton attente

Citation:

http://www.developpez.net/forums/d56...ue-repertoire/
15/12/2008, 10h54
Djang0
J'ai déjà lu ce topic Blondelle ;)
mais je ne préfère pas passer par une commande dos pour avoir le renvoi du message d'erreur
Code:

1 2 if((DeleteFile(LBtempdocenvoidxcarebis->Items->Strings[k])) == true) ShowMessage("Message supprimé");
Bien sur, une fois le code fonctionnel, le showMessage sera remplacé par autre chose :D

Sinon henderson, merci pour ton aide, j'ai essayé ta méthode mais rien ne se passe :cry: tous mes fichiers y sont encore
15/12/2008, 11h21
totoche76

Salut Djang0

Tu as repris telle quelle la fonction Search de la FAQ ??

Elle compare l'extension de chaque fichier trouvé avec les extensions passées en paramètres. Donc c'est normal que quand tu passes des extensions, elle les traite.
Modifie la fonction Search pour virer le paramètre "TStringList * Extensions" et les traitements correspondants, et ça devrait mieux correspondre à ce que tu veux faire, non ??

A+
17/12/2008, 17h12
Djang0

J'ai pris toutes les extensions des fichiers qui pouvaient poser problème et je les ai ajouter. Ensuite je supprime les fichiers un par un avec DeleteFile et si y en a un qui est en cours d utilisation, l'utilisateur en est averti.

Merci pour votre aide