Trochu jsem zagooglil a není to nijak složité :-)
Public Sub pok()
SetAttr "D:\FB_Fields.txt", 0
SetAttr "D:\FB_Fields.txt", vbReadOnly
MsgBox GetAttr("D:\FB_Fields.txt")
End Sub
Komentář asi není třeba :-)
M@citovat
Public Sub pok()
SetAttr "D:\FB_Fields.txt", 0
SetAttr "D:\FB_Fields.txt", vbReadOnly
MsgBox GetAttr("D:\FB_Fields.txt")
End Sub
Komentář asi není třeba :-)
M@citovat