[Vb] Rendere un File in sola lettura

[Mr.E]

Come faccio a rendere un file in sola lettura da Vb?
Mi spiego meglio. Ho un file nella stessa cartella del programma che si chiama File.txt. Come faccio a rendere l'attributo Sola Lettura = True???

Grazie

[comas17]

Fai eseguire il comando DOS

ATTRIB +R FILE.TXT

[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