così?
SetAttr strPercorsoFile, VbFileAttribute = vbArchive