Dim fso As Scripting.FileSystemObject
Dim f As file
Set fso = New Scripting.FileSystemObject
Set f = fso.GetFile("D:\tst.txt")
f.Attributes = Normal
Set fso = Nothing
Dim fso As Scripting.FileSystemObject
Dim f As file
Set fso = New Scripting.FileSystemObject
Set f = fso.GetFile("D:\tst.txt")
f.Attributes = Normal
Set fso = Nothing