UN PROG POUR LES LISTE BOX ET DRIVE BOX + DIR BOX

Signaler
Messages postés
2
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
26 mai 2002
-
Messages postés
8
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
13 juillet 2009
-
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/3459-un-prog-pour-les-liste-box-et-drive-box-dir-box

Messages postés
8
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
13 juillet 2009

slt ami
j'ai un petit souci
je veu ke a chak enregistrement un message apparait comme lorsqu'on est connecté a MSn Messenger (en bas à droite de l'ecran) pour di k'il ya un un nouveau connecté.une page sort pour nous signalé cela.
je veu ke se soit la meme chose pour moi pour mes enregistrement
S'il te plai aide moi c'est très important.
Merci
Messages postés
2
Date d'inscription
dimanche 22 février 2004
Statut
Membre
Dernière intervention
17 mars 2004

c peut etre bete ma question ( surment meme) Mais comment fait fonctionner ces fichier *.frm ; *.vbp ; *.vbw??
desoler de poser cette question mais j debute
Messages postés
55
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
13 décembre 2003

merci papy67
Messages postés
51
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 mars 2008

du niveau 2 surement pas l'interface est faible pas de resume error
bestfraggeur ajoute ces 3 fonctions pour la recherche

Function Scanne(telRepertoire As String)
ListerFichier telRepertoire, "*.*"
End Function
Function listerRep(telRepertoire As String)
telResultat = Dir(telRepertoire & "*.*", vbDirectory + vbHidden + vbSystem)
If telResultat = "" Then Exit Function
Do
DoEvents
telResultat = Dir
If telResultat <> "" And telResultat <> ".." And telResultat <> "." And (GetAttr(telRepertoire & "" & telResultat) And 16) Then
Dossiers.AddItem IsPathRoot(telRepertoire) & telResultat
End If
Loop While telResultat <> ""
End Function
Function ListerFichier(telRepertoire As String, telFiltre As String)
telResultat = Dir(telRepertoire & "" & telFiltre, vbReadOnly + vbArchive + vbSystem + vbNormal)
If telResultat = "" Then Exit Function
Do
If telResultat <> "" And telResultat <> ".." And telResultat <> "." And Not (GetAttr(telRepertoire & "" & telResultat) And 16) Then
Fichiers.AddItem IsPathRoot(telRepertoire) & telResultat
End If
DoEvents
telResultat = Dir
Loop While telResultat <> ""
Label3.Caption =Fichiers.ListCount
End Function
Afficher les 9 commentaires