XProfan

Def SetFileAttr(2) !"Kernel32.dll", "SetFileAttributes"
Def GetFileAttr(1) !"Kernel32.dll", "GetFileAttributes"
var Folder$="C:\\Test"
SetFileAttr(Folder$, GetFileAttr(Folder$) | $4)