ecco un esempio, completalo tu...

codice:
 Dim Percorso As String
 Dim StrApp As String
 dim ElencoPdf() As String
 Dim ContatorePdf As Integer
 Dim NomeOutput As String
 Percorso=TuaForm.OggettoDir.Path & "\"
 Redim Preserve ElencoPdf(0)

 'scarica l'elenco dei pdf in ElencoPdf()
 StrApp=Dir(Percorso & "*.pdf")
 While StrApp<>""
    Redim Preserve ElencoPdf(UBound(ElencoPdf)+1)
    ElencoPdf(UBound(ElencoPdf))=StrApp
    StrApp=Dir()
 Wend

 For ContatorePdf=1 to UBound(ElencoPdf)
   NomeOutput=Percorso
   NomeOutput=NomeOutput & TuaForm.TestoDD & TuaForm.TestoMM & TuaForm.TestoYYYY _
   & "_" & TuaForm.TestoCheVuoi1 _
   & "_" & TuaForm.TestoCheVuoi2 ...  & ".pdf"
 
   'rinomina un pdf
   Name Percorso & ElencoPdf(ContatorePdf) As NomeOutput
 Next ContatorePdf
se inceve devi fare lo stesso lavoro in più cartelle allora fai come dice Oregon, dai un occhio al FSO