Fichiers dsn
amsnas
Messages postés
3
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 octobre 2004
-
12 juin 2004 à 13:03
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 12 juin 2004 à 16:32
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 12 juin 2004 à 16:32
1 réponse
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
20
12 juin 2004 à 16:32
12 juin 2004 à 16:32
Bonjour,
Personnellement, j'utilise :
Dim fso As FileSystemObject
'Sélectionner "Microsoft Scripting Runtime" dans Projet/Références
Private Sub Rechercher_Fichiers(Dossier As String)
Dim fld As Folder
Dim subfld As Folder
Dim fl As File
' Création du FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Set du dossier à parcourir
Set fld = fso.GetFolder(Dossier)
' Listage des fichiers du dossier
For Each fl In fld.Files
If Right(fl.Name, 4) = ".dsn" Then
List1.AddItem Dossier & fl.Name
End If
Next
' Recherche récursive des fichiers dans les sous-dossiers
For Each subfld In fld.SubFolders
Rechercher_Fichiers Dossier & subfld.Name & ""
Next
End Sub
Private Sub Command1_Click()
Dim Dossier_Depart As String
Screen.MousePointer = vbHourglass
' Dossier de départ
Dossier_Depart = "C:" ' toujours terminer la chaine par un ""
' Rechercher les fichiers
Rechercher_Fichiers Dossier_Depart
Screen.MousePointer = vbDefault
MsgBox "Recherche terminée"
End Sub
Le résultat est pas immédiat mais ça marche.
Cordialement
CanisLupus
Personnellement, j'utilise :
Dim fso As FileSystemObject
'Sélectionner "Microsoft Scripting Runtime" dans Projet/Références
Private Sub Rechercher_Fichiers(Dossier As String)
Dim fld As Folder
Dim subfld As Folder
Dim fl As File
' Création du FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Set du dossier à parcourir
Set fld = fso.GetFolder(Dossier)
' Listage des fichiers du dossier
For Each fl In fld.Files
If Right(fl.Name, 4) = ".dsn" Then
List1.AddItem Dossier & fl.Name
End If
Next
' Recherche récursive des fichiers dans les sous-dossiers
For Each subfld In fld.SubFolders
Rechercher_Fichiers Dossier & subfld.Name & ""
Next
End Sub
Private Sub Command1_Click()
Dim Dossier_Depart As String
Screen.MousePointer = vbHourglass
' Dossier de départ
Dossier_Depart = "C:" ' toujours terminer la chaine par un ""
' Rechercher les fichiers
Rechercher_Fichiers Dossier_Depart
Screen.MousePointer = vbDefault
MsgBox "Recherche terminée"
End Sub
Le résultat est pas immédiat mais ça marche.
Cordialement
CanisLupus