COLOCAR ATRIBUTO SOMENTE LEITURA EM ARQUIVO

 Tópico anterior Próximo tópico Novo tópico

COLOCAR ATRIBUTO SOMENTE LEITURA EM ARQUIVO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#367102 - 03/03/2011 09:06:49

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Salve, salve galera!

Estou precisando atribuir somente leitura aos arquivos de registro do meu programa... Alguém sabe como fazer isso no VB 6?

Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

#367107 - 03/03/2011 09:12:19

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Última edição em 03/03/2011 09:15:07 por ZEROCAL

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



Estou voltando... Olá a todos... Já posso dizer, ("Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA")
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em códigos binários.



Resposta escolhida #367111 - 03/03/2011 09:21:08

HIDDEN
GOIANIA
Cadast. em:Julho/2009


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




#367114 - 03/03/2011 09:37:01

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Obrigado a todos pela resposta



Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LEAO10 em 03/03/2011 09:37:41