Rien de spécial à faire. Le code utilise une fenêtre de formulaire (voir le cookies.zip).
Pour toute suggestion : sukhoi03@libertysurf.fr
Source / Exemple :
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
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.