atribute fisiere

[alcoool2]

Salut!

Am si eu o problema cu schimbarea atributelor unor fisiere dintr-un director. eu vreau sa fac toate fisierele dintr-un director unhidden si am incercat urmatorul cod care nu merge:

Cod: Selectaţi tot

Sub favizibil()
p = CurrentProject.Path & "\temporar\"
    
    SetAttr p, vbNormal
    f = Dir(p & "*.*")
    Do Until f = ""
        SetAttr f, vbNormal
        f = Dir
    Loop
End Sub

Are cineva vre-o idee cum se face schimbarea de atribute pentru mai multe fisiere?

Multumesc !

[alcoool2]

PS
codul da eroare atunci cand da peste un fisier ascuns "hidden"

[alcoool2]

Ok dupa lungi cautari pe "goagal" am gasit un cod care merge

Cod: Selectaţi tot

Sub favizibil()

Dim fso, strPath, objFolder, objFile, objSFldr

Set fso = CreateObject("Scripting.FileSystemObject")

strPath = CurrentProject.Path & "\temporar\"

If fso.folderExists(strPath) Then

   
        Set objFolder = fso.getFolder(strPath)
        
        For Each objFile In objFolder.Files
            objFile.Attributes = 32
        Next
        Set objFolder = Nothing
        Set fso = Nothing
        
        MsgBox "atribute schimbate"
End If
End Sub

[smcsa]

Mergea si cu Dir(). Acolo ai un al doilea parametru care se refera la atribut. E optional si vbNormal default. Daca il pui pe vbHidden functioneaza. In alta ordine de idei, vezi ca sintaxa corecta pentru iteratie este f = Dir("") nu f = Dir (toate astea din Help, bata-l vina )