VB6: Como modificar atributo de arquivo

[PIT BULL]

Preciso copiar um arquivo de um DVD pro disco rídigo e preciso retirar o atributo 'somente leitura' dele. Como fazer isso com o VB6?

[ChakaN]

nao lembro, digite:

FileSystem.FileAtr

que deve aparecer a pista

[snake]

fica esperto que tem uns comentarios no codigo sem o ' antes, então leia tudo antes de rodar

Descobrindo e Alterando Atributos de Arquivos

'Num módulo:
Public Type Attrib
  Archive As Boolean
  Hidden As Boolean
  ReadOnly As Boolean
  System As Boolean
End Type

Public Function MudaAtributo(ByVal sNomeArq As _
       String, ByRef m_Attrib As Attrib) As Boolean
  Dim AtributoMudar As Integer

  If m_Attrib.Archive = True Then
    AtributoMudar = AtributoMudar + vbArchive
  End If
  If m_Attrib.Hidden = True Then
    AtributoMudar = AtributoMudar + vbHidden
  End If
  If m_Attrib.ReadOnly = True Then
    AtributoMudar = AtributoMudar + vbReadOnly
  End If
  If m_Attrib.System = True Then
    AtributoMudar = AtributoMudar + vbSystem
  End If

  If Dir(sNomeArq, vbReadOnly + vbArchive + _
         vbSystem + vbHidden) = "" Then
    MudaAtributo = False
    Exit Function
  End If

  On Error GoTo Erro
  SetAttr sNomeArq, AtributoMudar
  On Error GoTo 0
  MudaAtributo = True
Exit Function
Erro:
  MudaAtributo = False
End Function

Public Function PegaAtributo(ByVal sNomeArq As _
       String, ByRef m_Attrib As Attrib) As Boolean
  Dim AtributoReceber As Integer

  If Dir(sNomeArq, vbReadOnly + vbArchive + _
         vbSystem + vbHidden) = "" Then
    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
  PegaAtributo = True
Exit Function
Erro:
  PegaAtributo = False
End Function

'P/ saber os atributos, proceda da seguinte maneira:
Private Sub cmdPegar_Click()
  Dim ATR As Attrib

  If Not PegaAtributo("C:\Cezar.BMP", ATR) Then
    Debug.Print "Erro ao Pegar"
    Exit Sub
  End If

  MsgBox "Atrubutos do Arquivo: C:\Cezar.BMP" & _
         vbCrLf & "A - " & ATR.Archive & vbCrLf & _
         "H - " & ATR.Hidden & vbCrLf & _
         "R - " & ATR.ReadOnly & vbCrLf & _
         "S - " & ATR.System
End Sub

    Ele retornará da seguinte forma:
    ATR.Archive => Atributo Archive (Arquivo)
    ATR.Hidden => Atributo Hidden (Oculto)
    ATR.ReadOnly => Atributo ReadOnly (Somente p/ Leitura)
    ATR.System => Atributo System (Arquivo de Sistema)

'P/ mudar os atributos, proceda da seguinte
'maneira:
Private Sub cmdMudar_Click()
  Dim ATR As Attrib
  ATR.Archive = True
  ATR.Hidden = False
  ATR.ReadOnly = False
  ATR.System = False
  
  If Not MudaAtributo("C:\Cezar.BMP", ATR) Then
    Debug.Print "Erro ao Pegar"
    Exit Sub
  End If
  Call cmdPegar_Click
End Sub

    Então, após ele mudar os atributos, ele irá confirmar (chamando a Sub anterior) e lhe mostrará o resultado (os novos valores p/ os atributos...).

    Detalhe, os parâmetros da função MudaAtributo são:
    ATR.Archive => Atributo Archive (Arquivo)
    ATR.Hidden => Atributo Hidden (Oculto)
    ATR.ReadOnly => Atributo ReadOnly (Somente p/ Leitura)
    ATR.System => Atributo System (Arquivo de Sistema)

[PIT BULL]

Caras... asuhauhsuh eu só quero retirar o 'somente leitura'. Só isso! Todos têm!

[PIT BULL]

setattr "arquivo.txt", vbnormal

simples!

[wiseman]

Não é só copiar pro HD e nas propriedades do arquivo desmarcar a opção do somente leitura?

[PIT BULL]

Postado por wiseman

Não é só copiar pro HD e nas propriedades do arquivo desmarcar a opção do somente leitura?

Sim, mas são DVDs com centenas de milhares de arquivos de LOG. Eles são divididos segundo regras de 'assuntos' e distribuídos por pastas. Fiz um softwarezinho pra copiá-los e já ir distribuindo automaticamente.

A pessoa que vai utilizá-los não manja nada, então já embuti o 'setattr' retirando a qualidade de 'somente leitura' uma vez que o software que fará a análise desses arquivos necessita editá-los (descompactando).

Já consegui!

[wiseman]

Ahhh

[PIT BULL]

Aaahcabei de enfiar o dedo no cu!

Fui apagar os testes e apaguei o projetinho, o form e tudo mais shit + del. E pior ainda, copiei uma porção de coisas pra pasta onde estas coisas estavam. VTNC!

[PIT BULL]

O pior é que quando a gente quer apagar um arquivo o Windows XP segura Deus e todo mundo se ele estiver aberto, eu apaguei o projeto inteiro e ele sendo emulado pelo VB. Vai entender... _|_

[Bombastic]

e dai q sao milhares?
da pra selecionar todos pelo ruindows e tirar o readonly

[PIT BULL]

E daí que são vários DVDs e o cara não manja.

[PIT BULL]

VB6 não faz nenhuma cópia temporária de um form que estiver sendo emulado??

[Bombastic]

ctrl A
desmarcar o read only
Apply changes to the selected itens subfolders and files

/close

[maxcool]

bomba, se eh bobo?
ele tem VARIOS dvds
ae ele vai ter q botar um dvd no drive, fazer isso, tirar, botar outro e fazer de novo etc e tal


mto mais pratico dar 2 clicks num programa qualquer :P

[PIT BULL]

Passei um recover aqui em busca do arquivo do formulário... achou de tudo um pouco, desde arquivos perdidos antigos ao arquivos do projeto, mas o arquivo do form... esse ele nem listou. TNC!

[FeDaYkIn]

Pit... usou qual programa?
o easyrecovery acha tudo...

[Bombastic]

Postado por maxcool

bomba, se eh bobo?
ele tem VARIOS dvds
ae ele vai ter q botar um dvd no drive, fazer isso, tirar, botar outro e fazer de novo etc e tal


mto mais pratico dar 2 clicks num programa qualquer :P

nem tanto

pq eh 3 cliques pra fazer pq eu falei + apertar 2 teclas(ctrl a)

[PIT BULL]

Postado por FeDaYkIn

Pit... usou qual programa?
o easyrecovery acha tudo...

É um scriptzinho mequetrefe... fiz de novo.

[PIT BULL]

Postado por Bombastic

nem tanto

pq eh 3 cliques pra fazer pq eu falei + apertar 2 teclas(ctrl a)

Isso, e 2h e 15min pro Windows XP retirar os atributos de leitura de 95.786 arquivos. AsuhAHUShu!!! Cala a boca Bomba!

[Bombastic]

Postado por PIT BULL

Isso, e 2h e 15min pro Windows XP retirar os atributos de leitura de 95.786 arquivos. AsuhAHUShu!!! Cala a boca Bomba!

que nada deixa de ser jovem pit jhaerojarhaeruiaohreua

nem demora tanto no 2k

[osterne]

Postado por FeDaYkIn

Pit... usou qual programa?
o easyrecovery acha tudo...

alguem sabe dizer se o easy recovery recupera dados apagados de um memory stick?!

[PIT BULL]

Bomba mirim!

[Bombastic]

vc exala juventude mesmo tenho 500 anos pit