[VB6] Cambio attributi ai file

[ghiboz]

tutti i files!

[wallrider]

Originariamente inviato da ghiboz
ciao!
io dovrei fare un cambio attributi di massa a tutti i files (o con una determinata estensione) presenti in una determinata cartella...

...

Originariamente inviato da ghiboz
tutti i files!

dim fso as filesystemobject,fld as folder, tFile as file

set fso=createobject("scripting.filesystemobject")
set fld=fso.getFolder(tuaCartella)
for each tFile in fld.files
  f.attributes = QUELLOCHEVUOITE
next

OK?