Soyez le premier à donner votre avis sur cette source.
Vue 6 026 fois - Téléchargée 450 fois
Private Sub aide1_Click() AIDE_LOG.Show End Sub Private Sub BOUTON_EFF_Click() On Error GoTo erreur: test = MsgBox("Etes-vous sûr de vouloir effacer le cookie " + FICHIER_SELECT + " définitivement ?", vbExclamation + vbYesNo, "Effacer un cookie...") If (test = 6) Then NBRE_FICHIERS_TOTAL = Formulaire.FICHIERS_EFFACER.ListCount For t = 0 To NBRE_FICHIERS_TOTAL FICHIERS_EFFACER = Formulaire.FICHIERS_EFFACER.List(t) On Error GoTo 0 On Error Resume Next Kill ("C:\WINDOWS\Cookies\" + FICHIERS_EFFACER) Next t Formulaire.AFFICHAGE_NOM = "" Formulaire.FICHIERS.Refresh Formulaire.TEXTE_FICHIER = "" Formulaire.FICHIERS_EFFACER.Clear Else End If Exit Sub 'Gestion d'erreur erreur: MsgBox Msg, , "Erreur", Err.HelpFile, Err.HelpContext End Sub Private Sub EFFACER_LISTE_Click() Formulaire.FICHIERS_EFFACER.Clear End Sub Private Sub FICHIERS_Click() Dim FICHIER_SELECT, CHEMIN_COMPLET chemin = "C:\WINDOWS\Cookies\" num_fichier = Formulaire.FICHIERS.ListIndex FICHIER_SELECT = FICHIERS.List(FICHIERS.ListIndex) Formulaire.AFFICHAGE_NOM = FICHIER_SELECT CHEMIN_COMPLET = chemin + FICHIER_SELECT Open CHEMIN_COMPLET For Input As #1 separateur = Chr(10) Do While Not EOF(1) Input #1, donnees Formulaire.TEXTE_FICHIER = donnees Loop Close #1 End Sub Private Sub FICHIERS_DblClick() chemin_eff = "C:\WINDOWS\Cookies\" num_fichier_eff = Formulaire.FICHIERS.ListIndex FICHIER_SELECT_EFF = FICHIERS.List(FICHIERS.ListIndex) Formulaire.FICHIERS_EFFACER.AddItem (FICHIER_SELECT_EFF) End Sub Private Sub FICHIERS_EFFACER_DblClick() CHEMIN_REM = "C:\WINDOWS\Cookies\" FICHIER_SELECT_REM = Formulaire.FICHIERS_EFFACER.ListIndex 'FICHIER_SELECT_EFF = FICHIERS.List(FICHIERS.ListIndex) Formulaire.FICHIERS_EFFACER.RemoveItem (FICHIER_SELECT_REM) Formulaire.FICHIERS_EFFACER.Refresh End Sub Private Sub Form_Load() chemin = "C:\WINDOWS\Cookies\" ' Formulaire.LECTEURS = "C:\" ' Formulaire.DOSSIERS.Path = Formulaire.LECTEURS Formulaire.FICHIERS.Path = chemin End Sub Private Sub propos_Click() frmAbout.Show End Sub Private Sub quitter_Click() test = MsgBox("Voulez-vous vraiment quitter l'application", vbExclamation + vbYesNo, "Quitter...") If (test = 6) Then End End Sub
8 avril 2001 à 19:45
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.