RECHERCHER UN FICHIER FACILEMENT

cs_Willi

Messages postés: 2375
Date d'inscription: jeudi 12 juillet 2001
Statut: Modérateur
Dernière intervention: 15 décembre 2018

- 1 mars 2007 à 20:00
cs_claudetom

Messages postés: 115
Date d'inscription: jeudi 11 octobre 2001
Statut: Membre
Dernière intervention: 15 octobre 2012

- 3 mars 2007 à 00:37

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41696-rechercher-un-fichier-facilement

cs_claudetom

Messages postés: 115
Date d'inscription: jeudi 11 octobre 2001
Statut: Membre
Dernière intervention: 15 octobre 2012

3 mars 2007 à 00:37

Bonsoir,
A la place de FSO, ceci est bien :

Dim SRep As IO.DirectoryInfo
Dim RepFileEnum As IEnumerator = New IO.DirectoryInfo(SelectedRep).GetFileSystemInfos.GetEnumerator()
RepFileEnum.Reset()

Dim RF As Object

While RepFileEnum.MoveNext()
RF = RepFileEnum.Current()
If RF.GetType.FullName = "System.IO.DirectoryInfo" Then
SRep = New IO.DirectoryInfo(RF.fullname)
For Each file As IO.FileInfo In SRep.GetFiles
tailles += file.Length
Next
ElseIf RF.GetType.FullName = "System.IO.FileInfo" Then
tailles += RF.Length
End If
End While

TroXsA

Messages postés: 553
Date d'inscription: jeudi 28 novembre 2002
Statut: Membre
Dernière intervention: 2 octobre 2016

1
2 mars 2007 à 22:49

Salut
Avec VB 2005 en une ligne on peux rechercher tout les fichiers et dossiers
malheuresement ce type de fonction ne passe pas les erreurs et gere des exeptions a l'encontre du dossier des points de restauration ...

Dim FolderAndFile() As String = Directory.GetFiles("c:", "*.*", SearchOption.AllDirectories)

www.troxsa.info

cs_Willi

Messages postés: 2375
Date d'inscription: jeudi 12 juillet 2001
Statut: Modérateur
Dernière intervention: 15 décembre 2018

22
1 mars 2007 à 20:00

Aie !!!! CreateObject("Scripting.FileSystemObject") c'est finit et à bannir de suite !
FSO c'est bon en vbs uniquement !!!!

+ Erreurs non géré lors d'accès aux dossiers ou l'accès est interdit (comme le dossier des points restaurations système sous xp)

Conseils => Sous vb2005 utiliser plutot les méthodes fournits dans la classe My.Computer.FileSystem ou équivalent dans la classe System.IO.Directory