Conteur

Résolu
Signaler
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006
-
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006
-
salut à tous!
voila, je voulais un petit programme qui calcule le nombre de fichiers dans un repertoire.
merci pour votre comprehension

10 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
En se passant des services d'un controle inutile,ca donne cela :
Dim Count as Long, F as string
Count = 0
F = Dir("c:\monrep\*.*")
While Lenb(F) >0 
Count = Count + 1
F = Dir
Wend

Le résultat est dans "Count"
Christophe R.
3
Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007

Salut,

Une solution simple est d'utiliser une FileListBox et tu connaitras le nombre de fichiers en consultant la propriété ListCount

Tchô ;)
AnteManoclis
0
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006

salut à tous!
voila, je voulais une fonction qui permet de :
tant que le repertoire n'est pas vide de retourner le  premier  fichier text et de l'effacer du repertoire et de passer au deusieme fichier le retourner apres de l'effacer,troisieme,etc jusqu'a le repertoire soit vide
merci pour votre comprehension
0
Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007

'lut !

A mon avis, le code de crenaud76 s'y prête bien, un truc de ce genre devrait fonctionner

Dim Count as Long, F as string
Count = 0
F = Dir("c:\monrep\*.txt")
While Lenb(F) >0
Kill("c:\monrep" & F)
F = Dir
Wend

A moins que l'instruction Kill("C:\monrep\*.txt") ne fonctionne...

Tchô [;)]
[blue]AnteManoclis/blue
0
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006

Bonjour :
mon problème c'est que je n'arrive pas à lire un fichier texte et de stocker son contenu dans un string .
Voici ce qu j'ai codé :

Public Function lectureFichier(var As String)

Open "c:\mon_rep" & var For Input As #1
Do While Not EOF(1)
Input #1, fic_txt
Loop
Close #1

End Function


Et ce que je n'arrive pas à comprendre c'est que il y a des moments ou il lit la totalité du fichier et des moments le contenu de la variable fic_txt ne contient que quelques lignes de la fin du fichier !!
J'attends votre aide ! C'est urgent !
Merci d'avance !
0
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
Pour stocker l'intégralité d'un ficheir dans une var string

Public Function lectureFichier(var As String) As String
Dim FN as Long

FN = FreeFile
Open "c:\mon_rep" & var For Input As #FN
lectureFichier = Input(LOF(FN),#FN)
Close #1
End Function
0
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006

salut
j'ai testé votre code ca marche pas il n'affiche rien
j'attend toujours une reponse
merci
0
Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007

P'têtre que ça pourrait marcher...

Dim S as String
S = New String(FileLen("c:\mon_rep" & var),"")

Open "c:\mon_rep" & var For Binary As #1
Get #1, , S
Close #1

Tchô
AnteManoclis
0
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
C'est sur qu'il ne va rien afficher !! Il n'y a aucune fonciton d'affichage dans mon code !! Tu fais une fonction qui se nomme LectureFichier(), alors il n'y a aucune raison pour qu'elle affiche quoi que ce soit !!

CR
0
Messages postés
7
Date d'inscription
vendredi 24 décembre 2004
Statut
Membre
Dernière intervention
12 octobre 2006

bonjour
j'ai trouvé la solution :

Function lecturefichier(nom_f)
Dim Contenu As String
Dim msg As String
Dim ContenuFichier
Open "c:\monrep" & nom_f For Input As #1
Do While Not EOF(1)
Line Input #1, ContenuFichier
If Trim(ContenuFichier) <> "" Then
If Trim(Contenu) <> "" Then
Contenu = Contenu & Chr(13) & Chr(10) & ContenuFichier
Else
Contenu = ContenuFichier
End If
End If
Loop
Close #1
msg = Contenu
MsgBox (msg)
End Function
0