Stocker toutes les heures le nombre de fichiers dans un dossier

**EriCstoFF** · 19/10/2009, 11h07

Bonjour à vous, je désire réaliser la chose suivante :

Stocker toutes les heures dans un txt par exemple, le nombre de fichiers dans un dossier.

Je n'ai pas trouvé d'application à télécharger donc il faudrait que je la créé.

Croyez vous que c'est possible en VB ?

Je n'y connais pas grand chose alors je sollicite votre avis.

Cordialement,

Eric.

**OhMonBato** · 19/10/2009, 11h25

Bonjour,

bien sûr que c'est possible !
http://vb.developpez.com/faq/?page=F...mpteFichierRep

**real_achilles** · 20/10/2009, 16h07

bonjour
et pour enregistrer dans un fichier text:

Code :

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

1
2
3
4
5
Dim ff As Integer
ff = FreeFile
Open "chemin de ton fichier text" For Output As #ff
Print #ff, "ici ce que tu veut enregistrer"
Close #ff

**EriCstoFF** · 21/10/2009, 12h30

Ok, merci pour vos réponses, je vais maintenant poser une question qui va vous faire enrager de par sa probable stupidité.

En regardant vos 2 réponses, ceci voudrait dire que :

je tape :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function nbfich(chemin As String, ParamArray termin() As Variant) As Long
Dim fichier As String
Dim extension As Variant
Dim compteur As Long
For Each extension In termin
   fichier = dir(chemin & "\*." & extension)
   Do Until fichier = ""
   compteur = compteur + 1
   fichier = dir
   Loop
Next extension
nbfich = compteur
End Function

C'est la fonction qui permet d'extraire le nombre de fichiers d'un dossier.

Ensuite je tape :

Code :

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

1
2
3
4
5
Dim ff As Integer
ff = FreeFile
Open "c:\TXT\historique.txt" For Output As #ff
Print #ff, nbfich("c:\XML\","xml")
Close #ff

Et le nombre de fichiers xml contenus dans c:\XML va s'écrire dans c:\TXT\historique pour txt.

C'est ca ?

et au passage... je tape ca dans le bloc note et j'enregistre en .exe ? ^^

Eric.

**ProgElecT** · 21/10/2009, 13h11

Envoyé par EriCstoFF

Ok, merci
.............
et au passage... je tape ca dans le bloc note et j'enregistre en .exe ? ^^

Eric.

Ici c'est le forum VB6 et antérieur, pour "jouer" ton code comme tu le souhaites, tu peux programmer en VBScript.

**real_achilles** · 23/10/2009, 16h09

fallait préciser au début que tu veut utilisé bloc note (VBS) et pas VB6,
voila ton code est pret en vbs tu n'a qu'a le mettre dans le bloc note

:

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
16
17
18
19
20
21
22
23
24
'ici on trouve le nombre de fichier dans le répertoire
Dim stRep 
Dim oFSO,oFl,allfichier
' "allfichier" est le nombre de fichier, on commence à 0 puis on l'incremente a chaque fois qu'on trouve un fichier
allfichier = 0
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "c:\XML\"
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
 'ici on a trouvé un fichier et on va voir si son extention est xml ou pas
 'lcase pour mettre tout en miniscule puis faire la comparaison
 if lcase(right(oFl.Name,4)) = ".xml" then
   allfichier = allfichier + 1
   end if
 Next
End If
 
 
'ici on va ecrire le nombre dans un fichier texte
   Const ForWriting = 2
   Dim fso, f   
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\TXT\historique.txt", ForWriting,true)
   f.write(allfichier)

**EriCstoFF** · 26/10/2009, 09h30

Désolé de la question mais... je copie ton code dans bloc note et j'enregistre avec quelle extention ?

Si ce n'est pas en .exe, avec quoi dois-je l'executer ?

Eric.

**EriCstoFF** · 26/10/2009, 09h37

C'est bon, j'ai mis en VBS et en effet j'obtiens bien ton fichier texte avec le bon nombre.

Ma question est la suivante : je voudrais stocker ce nombre toutes les heures automatiquement. Cela va t-il le faire ?

2è : je voudrais que ce nombre s'écrive après le précédent... pour éviter que la nouvelle réponse écrase l'ancienne.

C'est possible ?

Eric.

**DarkVader** · 26/10/2009, 09h44

Bonjour,

Envoyé par EriCstoFF

Désolé de la question mais... je copie ton code dans bloc note et j'enregistre avec quelle extention ? .../...

vbs comme précédemment indiqué si tu t'en tiens à la procédure décrite ...

Envoyé par EriCstoFF

.../...
Si ce n'est pas en .exe, avec quoi dois-je l'executer ?

Eric.

Etant donné qu'ils ont lu ta question initiale que partiellement
et qu'on ne trouve aucune allusion à un quelconque timer,
probablement en cliquant dessus toutes les heures lol

**EriCstoFF** · 26/10/2009, 09h48

En fait pour le timer, avec l'application "Taches planifiées", on doit pouvoir s'en sortir.

Par contre ce que je voudrais vraiment obtenir, c'est que lorsque j'execute le VBS, qu'il m'écrive le nouveau nombre après l'ancien au lieu de l'écraser.

Si j'obtiens ceci alors c'est gagné.

Quelqu'un ?

Merci par avance.

**SfJ5Rpw8** · 26/10/2009, 09h59

il te suffit de changer le paramètre "ioMode" lors de l'ouverture de ton fichier

Code :

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

1
2
3
4
 
Const ForAppending = 8
(...)
   Set f = fso.OpenTextFile("c:\TXT\historique.txt", ForAppending ,true)

**EriCstoFF** · 26/10/2009, 10h05

Merci t'es un chef... même si j'imagine que pour toi c'était hyper simple.

Pour terminer et pour fignoler, pourrais-tu me dire comment noter le nouveau nombre sous l'ancien ?

En effet, s'il y a 5 puis 6 puis 9 fichiers, le fichier texte sera :
569
et je préfèrerais :
5
6
9
histoire de pouvoir exploiter le résultat.

Merci d'avance à toi et bonne journée.

Eric.