' Modify File AttributesSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.GetFile("C:\FSO\TestScript.vbs")If objFile.Attributes = objFile.Attributes AND 1 Then objFile.Attributes = objFile.Attributes XOR 1 End If search for scripts
' Modify File AttributesSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.GetFile("C:\FSO\TestScript.vbs")If objFile.Attributes = objFile.Attributes AND 1 Then objFile.Attributes = objFile.Attributes XOR 1 End If
Download Home Scripts Copyright © 2001-2024 adersοft