Comptage de fichier dans un dossier
tmnek
Messages postés
1
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
8 mars 2006
-
8 mars 2006 à 17:43
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 8 mars 2006 à 18:24
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 8 mars 2006 à 18:24
A voir également:
- Comptage de fichier dans un dossier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Javascript écrire dans un fichier - Forum Javascript / DHTML
- Écrire dans un fichier - Forum Javascript / DHTML
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
8 mars 2006 à 18:18
8 mars 2006 à 18:18
Bonjour,
Ceci devrait répondre à ta question.
Sub CompterFichier()
Dim Rep As String
Dim n As Integer
Rep = Dir("C:\Documents and Settings\JEAN-PIERRE\Mes documents\*.xls")
While Rep <> ""
n = n + 1
Rep = Dir
Wend
MsgBox "Il y a " & n & " fichier(s) dans le répertoire"
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée
Ceci devrait répondre à ta question.
Sub CompterFichier()
Dim Rep As String
Dim n As Integer
Rep = Dir("C:\Documents and Settings\JEAN-PIERRE\Mes documents\*.xls")
While Rep <> ""
n = n + 1
Rep = Dir
Wend
MsgBox "Il y a " & n & " fichier(s) dans le répertoire"
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
8 mars 2006 à 18:24
8 mars 2006 à 18:24
Salut,
Principe: Faire le tour de ton dossier afin de comparer l'extension de chaque fichiers présent.
A l'intérieur d'un bouton par exemple on va parcourir ton dossier....
8<--------------------------------------------------------------------
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim iNbFichiers As Integer
iNbFichiers = 0
For Each fichier In fso.GetFolder("c:\TonDossier").Files
If UCase(GetExt(fichier)) UCase(".xls") Then iNbFichiers iNbFichiers + 1
Next
fso = Nothing
MsgBox iNbFichiers
-------------------------------------------------------------------->8
Cette fonction te retourne l'extension du fichier
8<--------------------------------------------------------------------
Function GetExt(fichier As String)
Dim pos As Integer
pos = InStrRev(fichier, ".")
GetExt = Left$(fichier, pos)
End Function
-------------------------------------------------------------------->8
Principe: Faire le tour de ton dossier afin de comparer l'extension de chaque fichiers présent.
A l'intérieur d'un bouton par exemple on va parcourir ton dossier....
8<--------------------------------------------------------------------
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim iNbFichiers As Integer
iNbFichiers = 0
For Each fichier In fso.GetFolder("c:\TonDossier").Files
If UCase(GetExt(fichier)) UCase(".xls") Then iNbFichiers iNbFichiers + 1
Next
fso = Nothing
MsgBox iNbFichiers
-------------------------------------------------------------------->8
Cette fonction te retourne l'extension du fichier
8<--------------------------------------------------------------------
Function GetExt(fichier As String)
Dim pos As Integer
pos = InStrRev(fichier, ".")
GetExt = Left$(fichier, pos)
End Function
-------------------------------------------------------------------->8
