lister les éléments d'un dossier

Public dossierRapportdatecode As String
Public DossierRapportDeMicrosection As String
Public DossierChoisiRapportDateCode As String

Private Sub CommandButton1_Click()

DossierRapportDeMicrosection = "Z:\Rapport de microsection"

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(DossierRapportDeMicrosection)
Set fc = f.SubFolders

For Each f1 In fc
If TextBox1.Value = f1.Name Then
DossierChoisiRapportDateCode = f1
Label1.Caption = f1
found = True
End If
Next f1

If found = False Then
Label1.Caption = "Pas de code article correpondant au nom specifie"
End If


End Sub

Cliquez pour agrandir...

Private Sub CommandButton2_Click()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "Z:\Rapport de microsection\" & TextBox1.Text
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers

For Each Fichier In Dossier.Files

Label2 = I + 1
Label2 = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Next
End Sub

Cliquez pour agrandir...

For Each Fichier In Dossier.Files

Label2 = I + 1
Label2 = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Next

Cliquez pour agrandir...