Sub fichier() Dim Path Path = "C:\Documents and Settings\robert mugabuhamye\Desktop" Dim nbfich As Integer nbfich = ShowFolderList(Path) 'tu recupère le nombre de fichier MsgBox nbfich, vbOKOnly, "Fichiers contenus dans le répertoire " & Path 'tu l'affiche If nbfich > 10 Then 'si supérieur à 10 MsgBox "Attention le nombre de fichiers est > à 10", vbExclamation + vbOKOnly, "Alerte" 'tu le signale End If End Sub Function ShowFolderList(strPath) As Integer Dim fso, Dossiers, fic, fichiers, strListe, nbre Set fso = CreateObject("Scripting.FileSystemObject") Set Dossiers = fso.GetFolder(strPath) Set fic = Dossiers.Files 'pour chaque fichier de mon objet files de mon objet fso...:) For Each fichiers In fic 'le nom du fichier nbre = nbre + 1 'strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size Next ShowFolderList = nbre 'ShowFolderList = strListe Set fso = Nothing End Function
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
204 internautes nous ont dit merci ce mois-ci
Option Explicit Const MyFolder = "d:\RECUP" Dim objFso Set objFso = CreateObject("Scripting.FileSystemObject") If objFso.FolderExists(MyFolder) Then If objFso.GetFolder(MyFolder).Files.Count > 10 Then MsgBox "alert",vbExclamation End If Set objFso = Nothing
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
204 internautes nous ont dit merci ce mois-ci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
204 internautes nous ont dit merci ce mois-ci