Discussion :

[dkoneeee]

Bonjour,

J'aimerai compter les fichiers se nommant index.html avec un filtre (taille du fichier ou exclure des dossiers de la recherche).

voici le code que j'utile sous VB frontpage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
With Fs
    .LookIn = "C:\Documents and Settings\mom\Mes documents\My Web Sites\"  ' *** mettre ici le dossier voulu !
    .SearchSubFolders = True
    .FileName = "*index.html"
      If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & _
            " fichier(s) trouvé(s)."
 
 
    Else
        MsgBox "Il n'y a aucun fichier."
    End If
end with

Merci pour vos réponses.

[parp1]

c'est quoi le probleme.

Fais attention au doublons "MESSAGE EN DOUBLE"

Message d'erreurs?

[zazaraignée]

Et même en triple! J'ai supprimé les messages en trop. Avant de recliquer sur Envoyer, essaie de recharger la page. Parfois, c'est simplement une question de communication sur le réseau Internet et la page ne se charge pas assez vite ou est bloquée quelque part... En forçant le rafraichissement, généralement ça rentre dans l'ordre.

Aussi, j'aimerais que tu ajoutes les balises code autour de ton listing. C'est le bouton de l'éditeur.

Pour ta question, tu as un début de réponse dans la FAQ.

[dkoneeee]

je précise mon probleme:

lorsque je scanne un dossier avec le code du 1er message le programme me retourne des fichier "index.html" que je ne veu pas.


je souhaiterai les filtrer soit par leur taille soit par le nom du dossier le contanant.

Car si je les supprimes ils réaparaissent (fichier _vti_cnf crée par frontpage).

Merci pour votre aide.

[zazaraignée]

Dans la réponse que je t'ai faite précédemment, il y a un lien sur une rubrique de la FAQ qui introduit le 'File System Object'. Avec les objets du système de fichier, tu peux obtenir des informations sur la taille du fichier. Avec le nom du fichier, tu peux extraire l'extention, soit les quatre derniers caractères. La fonction Right devrait pouvoir t'aider. Avec une série d'instruction If... Then... Else... End If, tu devrait pouvoir t'en sortir.