Bonjour,
Je souhaiterai listé des fichiers dans un dossier. Mais des fichiers avec un certaine extension (.jpg).
J'ai commencé mais je but :
'exemple
Dim dos_pho As String = "c:"
Dim fso, folder, files, NewFile, sourceFolder
On Error Resume Next
fso = CreateObject("Scripting.FileSystemObject")
If dos_pho = "" Then
'c'est vite fait
Else
folder = fso.GetFolder(dos_pho)
files = folder.Files
For Each folderIdx In files
If Left(folderIdx.name, ".jpg", 4) Then
TextBox2.Text += folderIdx.name & vbCrLf
Else
End If
Next
End If
Le résultat me donne tous la liste de tous les fichiers dans le dossier mais je ne souhaite avoir que les ".jpg" .
Merci d'avance