NETTOYEUR DE DISQUE

cs_protect Messages postés 87 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 15 mai 2011 - 4 déc. 2003 à 21:43
quitues Messages postés 102 Date d'inscription vendredi 7 mars 2003 Statut Membre Dernière intervention 23 octobre 2004 - 28 déc. 2003 à 11:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18407-nettoyeur-de-disque

quitues Messages postés 102 Date d'inscription vendredi 7 mars 2003 Statut Membre Dernière intervention 23 octobre 2004
28 déc. 2003 à 11:09
ok merci pour le bout 2 code je le met tou 2 suite
attila46 Messages postés 10 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 17 janvier 2004
22 déc. 2003 à 09:33
Remplacez cette partie deu code et le problème sera résolu

Private Sub Form_Load()
If Dir("C:Program Filesdiscleanextension.txt") = "" Then
MsgBox "Le fichier EXTENSION.TXT est necessaire au fonctionnement de l'application.", vbExclamation + vbOKOnly, "Avertissement"
End
End If
Form1.Show
Drive1.Drive = Drive1.List(1)
MsgBox "Fermez toutes vos application avant de nettoyer votre disque.", vbExclamation + vbOKOnly, "Avertissement"
End Sub
quitues Messages postés 102 Date d'inscription vendredi 7 mars 2003 Statut Membre Dernière intervention 23 octobre 2004
8 déc. 2003 à 19:12
Il est po mal mais un problème c'est quand le chemin du fichier extension.txt n'est po bon, ton programme il kill tous les fichiers qu'il trouve.

imagine que ca supprime windows et a cause de ton programme, le gars il est bon à tout refaire !!!

J'espère que tu vas procéder aux modifs nécessaire (genre une alert qui dit que le fichier n'est pas là)

Merci.

PS : contrairement à ce que l'on pourrais croire, ca ne m'est pa arrivé mais un copain a perdu quelques fichiers.
cs_protect Messages postés 87 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 15 mai 2011 6
4 déc. 2003 à 21:43
Sa ses du programme qui servent beaucoup et en + bien réaliser!
9/10
Rejoignez-nous