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