Contenu d'un répertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Contenu d'un répertoire

acorsa

Bonjour!
Je vous explique mon problème:j'ai un répertoire dans lequel il y a un fichier au format PDF et un fichier au format RTF. Les 2 fichiers n'ont pas les mêmes noms, le but est de récupérer le nom du fichier PDF et de l'écrire dans l'en-tête du fichier RTF...Understood?
Voilà un bout de code qui permet d'obtenir les fichiers contenus des répertoires:

Function contenuRep()
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("c:\*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "" )
'teste si c'est un fichier ou un répertoire
If (GetAttr("c:\" & rep) And vbDirectory) = vbDirectory Then
MsgBox "Répertoire"
contenuRep = rep
Else
MsgBox "Fichier
contenuRep= rep
End If
'passe à l'élément suivant
rep = Dir
Loop
End Function

Mais je ne sais pas comment parcourir mon répertoire courant....

Publicité

kiki29

+1 ...

Option Explicit

Dim Tableau() As String
Dim NbFichiers As Long

Private Sub Tst()
Dim i As Long
Dim Dossier As String, TypeFichier As String

Erase Tableau
NbFichiers = 0

Dossier = "C:\Transfert\"

'si un type particulier de fichier est recherché
' remplacer *.* par *.rtf *.pdf *.xls ...
TypeFichier = "*.*"

ListeFichiersTableau Dossier, TypeFichier

If NbFichiers > 0 Then
For i = 1 To UBound(Tableau)
' à Adapter pour récup nom des fichiers
Debug.Print Tableau(i)
Next
End If
End Sub

Private Sub ListeFichiersTableau(ByVal Dossier As String, ByVal TypeFichier)
Dim NomFichier As String

NomFichier = Dir(Dossier & TypeFichier)

Do While Len(NomFichier) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = NomFichier
NomFichier = Dir()
Loop
End Sub

Message édité par kiki29 le 16-08-2006 à 22:24:04

acorsa

allez +2..soyons fous!!
Merci!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Contenu d'un répertoire

Sujets relatifs
[PHP] Lister le contenu d'un repertoire en faisant des liens[resolu]	Copie contenu d'un repertoire en fichier batch
comment lire le contenu d'un répertoire en actionscript?	lister contenu repertoire
lecture du contenu d'un repertoire.	lister le contenu d'un répertoire
lister un répertoire pour mettre le contenu dans une base de données	[ASP] lister le contenu d'un répertoire
[ Delphi ] Supprimer un repertoire et son contenu	[HTML] Lister le contenu d'un répertoire FTP sur une page web?
Plus de sujets relatifs à : Contenu d'un répertoire

Page générée en 0.030 secondes