Pessoal,

 

estou precisando alterar os atributos do arquivo na hora de uma cópia, alterar para somente leitura, para arquivo normal ou oculto. Porém não posso usar o comando "SetAttr" e também não posso fazer isso via BAT. Eu preciso fazer essa operação via API. Qual API que me dá essa opção?

 

agradeço.

 

Private Sub ChangeThis(rFolder As Folder, rAtt As Integer)
    Dim lFolder As Folder
    Dim lfolders As Folders
    Dim lFile As File
    Dim lFiles As Files
   
    Set lFiles = rFolder.Files
    For Each lFile In lFiles
        lFile.Attributes = rAtt
    Next lFile
   
    Set lfolders = rFolder.SubFolders
    For Each lFolder In lfolders
        lFolder.Attributes = rAtt
        ChangeThis lFolder, rAtt
    Next lFolder
   
    Set lFile = Nothing
    Set lFolder = Nothing
    Set lFiles = Nothing
    Set lfolders = Nothing

End Sub

Onde onde Folder é a pasta que ele vai setar todos os arquivos e rAtt tem que ser a soma dos atributos:

Read-Only: Setar=1 Des-setar=0

System: Setar=4 Des-setar=0

Hidden: Setar=2 Des-setar=0

Arquivo morto: Setar = 32 Des-setar=0

 

E era isso. Falow

E nem precisou de API.

Esqueci de avisar, pra isso funcionar, precisa adicionar referencia para o MS scripting Runtime.