Résolu Zone de liste

[cerutti]

Bonjour
Bonjour,

je travaille sur une base de donnée qui permet de trier des photos dans un dossier pour mon sujet de stage.
avec un bouton je charge le contenu de mon dossier ou se trouve les photos en les affichant dans une zone de liste.

Je voudrais savoir s'il est possible de trier les photo dans ma zone de liste par exemple dans deux zone de texte j'écris 1-20 et j'ai que les photos de 1 à 20 qui s'affiche et que après je les enregistrent dans un autre dossier que j'ai créer .

Merci d'avance

Private [/contents/446-fichier-sub Sub] btn_charger_Photos_Click()
Dim fso, fol, fil
'test si le chemin est vide
If Me.Texte23.Value = "" Then
MsgBox ("Sélectionner Dossier")
' initialiser la liste et la zone d'image
Liste_Pour_Affichage_Photos.RowSource = ""
Affichage_image.Picture = ""
Else
'Dim amine As String
'amine = txt_parcourir.Text

Set fso = CreateObject("Scripting.FileSystemObject")
Dim path As String
Texte23.SetFocus

path = Texte23.Text
Set fol = fso.getFolder(path)
For Each fil In fol.Files


' Me.Texte7.Value = fil.Name
'MsgBox "fichier" & fil.Name
Liste_Pour_Affichage_Photos.AddItem (fil.Name)
Me.Texte28 = Liste_Pour_Affichage_Photos.ListCount

Next
End If
End Sub

code pour créer le dossier


Private Sub Commande37_Click()
Dim toto As String
toto = Me.Nom_fichier.Value
Nom_fichier.SetFocus
toto = Me.Nom_fichier.Text
'On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Drive
Dim oFld As Folder

'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Crée le repertoire
Set oFld = oFSO.CreateFolder(soukaina)
'Me.Texte40 = Me.Nom_fichier.Value

 

[zeb]

Salut,

Dans ta boucle For Each fil In fol.Files tu mets un compteur.
Si le compteur est dans l'intervalle de tes deux valeurs, tu exécutes Liste_Pour_Affichage_Photos.AddItem.

Sors de tes boucles ce qui n'a rien à y faire
Et respecte notre règlement (cf. MP)