Bonjour à tous
J'utilise cette macro pour trouver le nombre de fichiers dans des dossiers
Mon problème, c'est que mon résultat est faussé par des fichiers qui sont cachés
Je souhaiterais donc pouvoir exclure ces fichiers cachés du résultat.
Secondement j'ai trouvé comment cibler certains fichiers
Mais je souhaiterais trouvé le moyen au contraire d'exclure certains fichiers
Comme par exemple exclure tous les fichiers dont l’extension est "JPG".
Sachant que mes fichiers en question sont des liens internet et qu'ils ne comportent donc pas d’extension
Merci pour votre aide
J'utilise cette macro pour trouver le nombre de fichiers dans des dossiers
Mon problème, c'est que mon résultat est faussé par des fichiers qui sont cachés
Je souhaiterais donc pouvoir exclure ces fichiers cachés du résultat.
Secondement j'ai trouvé comment cibler certains fichiers
Mais je souhaiterais trouvé le moyen au contraire d'exclure certains fichiers
Comme par exemple exclure tous les fichiers dont l’extension est "JPG".
Sachant que mes fichiers en question sont des liens internet et qu'ils ne comportent donc pas d’extension
Merci pour votre aide
VB:
Sub Nombre()
ListeFichiersDans DossierFichiers
End Sub
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.file
Dim r As Long
Dim Path As String
Dim Produit As String
Path = "F:\Mes documents\####\"
Produit = Path & Cells(ActiveCell.Row, 38)
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(Produit)
r = 0
For Each Fichier In DossierSource.Files
'If InStr(1, Fichier.Name, ".") Then
r = r + 1
'End If
Next Fichier
Cells(ActiveCell.Row, 22) = r
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing
End Sub