Discussion :

[EriCstoFF]

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]

Bonjour,

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

[real_achilles]

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]

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]

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]

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)