Un prog pour les liste box et drive box + dir box
Soyez le premier à donner votre avis sur cette source.
Vue 4 699 fois - Téléchargée 519 fois
Description
voir le zip
Codes Sources
A voir également
- Un prog pour les liste box et drive box + dir box
- Faire glisser un ou plusieur ficher dans une list box - Codes sources - Visual Basic / VB.NET (Divers)
- Visual Basic / VB.NET : Lecture des.ini dans des listes box avec le fichier ini passer en mém - Guide
- Visual Basic / VB.NET : Lancer un fichier .exe à partir d'un file list box - CodeS SourceS - Guide
- List box passer d'une list box a une autre en perdant le focus - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Visual Basic / VB.NET : File list box améliorée - CodeS SourceS - Guide
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
desoler de poser cette question mais j debute
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
c pas du niveau 2 mais du 1
le mode de recherche est nul car il ne va pas ds les sous repertoires
il n'y a pas de gestion des erreurs donc si je click sur le lecteur de cd et ki a rien dedans, sa bug allor arrete de faire ton chaud et apprend a mieu programmer + tot ke de faire du copier coller sur les codes des autres sans rien comprendre du code !
1/10 pke tu a du faire un travail de copier coller comme toujour !
(et domage ke je puisse pas mettre - )
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.