Stocker toutes les heures le nombre de fichiers dans un dossier

Version imprimable

19/10/2009, 11h07
EriCstoFF

Stocker toutes les heures le nombre de fichiers dans un dossier

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.
19/10/2009, 11h25
OhMonBato

Bonjour,

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

bonjour
et pour enregistrer dans un fichier text:

Code:

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

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:

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:

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.

21/10/2009, 13h11
ProgElecT

Citation:

Envoyé par EriCstoFF

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

Eric.

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

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 :ccool: :

Code:

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)

26/10/2009, 09h30
EriCstoFF

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.
26/10/2009, 09h37
EriCstoFF

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.
26/10/2009, 09h44
DarkVader

Bonjour,

Citation:

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 ...

Citation:

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
26/10/2009, 09h48
EriCstoFF

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.

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

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

26/10/2009, 10h05
EriCstoFF

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.
26/10/2009, 10h12
SfJ5Rpw8

Il te faut rajouter un "retour-chariot" à la fin de tes lignes .

remplace :

Code:

f.write(allfichier)

par

Code:

f.WriteLine(allfichier)
26/10/2009, 10h46
EriCstoFF

Merci beaucoup ! Je viens de programmer la tache planifée et tout est OK.

Merci à tous.

Eric.