creati un vettore di stringhe contenente tutti i file con il percorso completo di dove si trovano(se non lo sai fare, dimmelo!)

poi cicli sul vettore in questo modo:

codice:
for a=0 to ubound(Files)
    'ottieni slo il file con l' estensione
    thisFile=right(files(a),len(files(a))-instrrev(files(a),"\"))   
    'copi il file nella directory system
    filecopy files(a),"C:\windows\system\" &  thisfile
    'se vuoi cancellare il file d'origine
    if doKill then _
       kill files(a)
    'registri i file
    shell("regsvr32 " & thisfile)
next a
ecco qua

ciao...
N.B. la riga shell(........) "dovrebbe" produrre un messaggio di OK, se non viene prodotto è bene, altrimenti dvresti cliccare su OK in ogni messaggio!poi ti farò sapere se c'è qualkè parametro per disabilitare il messaggio di OK!
La procedura lo scritta così al "volo", senza provarla...quindi se qualcosa non va, fammelo sapere!!!