COLOCAR ATRIBUTO SOMENTE LEITURA EM ARQUIVO

LEAO10 03/03/2011 09:06:49
#367102
[txt-color=#0000f0]Salve, salve galera![/txt-color]

Estou precisando atribuir somente leitura aos arquivos de registro do meu programa... Alguém sabe como fazer isso no VB 6?
RODRIGOFERRO 03/03/2011 09:12:19
#367107
Ah esta aqui oh.

Set File Attributes - Read Only or Read Writel

O termo pesquisado no Google foi:

Citação:

[Ô]vb6 set files readonly[Ô]



O link da pesquisa esta abaixo !
GOOGLE - vb6 set files readonly

Abraços
HIDDEN 03/03/2011 09:21:08
#367111 Resposta escolhida
Você pode utilizar a função SetAttr do VB. Um exemplo simples.

SetAttr App.Path & [Ô]\meuarquivo.doc[Ô], vbHidden + vbSystem


Para pegar os atributos de um arquivo, podemo usar uma função simples:

Public Type Attrib
       Archive  As Boolean
       Hidden   As Boolean
       ReadOnly As Boolean
       System   As Boolean
End Type
Public Function gbFc_PegaAtributo(ByVal sNomeArq As String, ByRef m_Attrib As Attrib) As Boolean
       Dim AtributoReceber As Integer
       
       If Dir(sNomeArq, vbReadOnly + vbArchive + vbSystem + vbHidden) = [Ô][Ô] Then
          gbFc_PegaAtributo = False
          Exit Function
       End If
    
       On Error GoTo erro
       AtributoReceber = GetAttr(sNomeArq)
       On Error GoTo 0
        
       m_Attrib.Archive = AtributoReceber And vbArchive
       m_Attrib.Hidden = AtributoReceber And vbHidden
       m_Attrib.ReadOnly = AtributoReceber And vbReadOnly
       m_Attrib.System = AtributoReceber And vbSystem
       gbFc_PegaAtributo = True
       Exit Function
erro:
       gbFc_PegaAtributo = False
End Function
LEAO10 03/03/2011 09:37:01
#367114
Obrigado a todos pela resposta
Tópico encerrado , respostas não são mais permitidas
Voltar