Contenu d'un répertoire

Contenu d'un répertoire - VB/VBA/VBS - Programmation

Marsh Posté le 16-08-2006 à 09:13:43    

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

Reply

Marsh Posté le 16-08-2006 à 09:13:43   

Reply

Marsh Posté le 16-08-2006 à 09:52:51    

+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
Reply

Marsh Posté le 16-08-2006 à 10:08:00    

allez +2..soyons fous!!
Merci!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed