[Vb] Rendere un File in sola lettura

[biste]

Devi usare quest'API

Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long 

Private Const FILE_ATTRIBUTE_READONLY = &H1

poi da una routine fai

SetFileAttributes "C:\dove\sta\il\file", FILE_ATTRIBUTE_READONLY