Bonsoir,
Pour lister tous les fichiers présent dans un dossier.
J'utilise ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "F:\Mariage"
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
'creation hyperlien
 Next
End If
Maintenant ce que je souhaiterai c'est créer un lien hypertext ou autre sur chaque fichier et l'afficher sur ma page.
Cordialement