conteurRésolu

Question

salut à tous!
voila, je voulais un petit programme qui calcule le nombre de fichiers dans un repertoire.
merci pour votre comprehension

crenaud76 · Accepted Answer

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.

AnteManoclis · Answer

Salut,

Une solution simple est d'utiliser une FileListBox et tu connaitras le nombre de fichiers en consultant la propriété ListCount

  Tchô  ;) 
AnteManoclis

cs_ouhmad · Answer

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

AnteManoclis · Answer

'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

cs_ouhmad · Answer

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 !

crenaud76 · Answer

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

cs_ouhmad · Answer

salut 
j'ai testé votre code ca marche pas il n'affiche rien
j'attend toujours une reponse
merci

AnteManoclis · Answer

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

crenaud76 · Answer

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

cs_ouhmad · Answer

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

Conteur

10 réponses

Discussions similaires