Para poner los atributos que kieras ya sea a una carpeta o un archivo utiliza SetFileAttributes y ya está

gracias por responder pero por mas k lo intento no lo logro, lo que pretendo es cambia el atributo de todo el contenido de toda la carpeta

ejemplo:

C:\prueba --> 1.txt,2.txt,3.txt,4.txt,5.txt,6.txt,7.txt,8.txt,9.txt

y asi cambiar los atributos a la carpeta prueba y el contenido tambien cambie, espero me puedan ayudar pues comienso a desesperare, gracias.

Option Explicit
Dim sPath As String
Dim sName As String
Dim sFullName As String
 
Private Sub CmdAtributo_0_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*", vbHidden)
 
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
 
    sName = Dir(sPath, vbDirectory + vbHidden)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        sName = Dir
    Wend
End Sub
 
Private Sub CmdAtributo_2_Click()
    sPath = "c:\prueba\"
    sName = Dir(sPath & "*.*")
 
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
 
    sName = Dir(sPath, vbDirectory)
    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbHidden
        sName = Dir
    Wend
End Sub

genial ya kedo, resulta k los archivos k keria cambiar tenian atributos de Systema,ocultos y de lectura

asi k solo cambie esta linea

sName = Dir(sPath & "*.*", vbHidden)
 

Por esta

sName = Dir(sPath & "*.*", vbSystem + vbReadOnly + vbHidden)
 

Bueno pues muchas gracias cΔssiΔnі

tambien puedes crear una funcion para obtener todos los archivos en del directorio y en el bucle le agregas la funcion para cambiar de atributos.

Private Sub HiddenFilesFolder(ByVal path As String)
    On Error Resume Next
'Esta  parte del codigo fue sacado de un EXE infecter; 
 
    'Se cifra el string que carga el objeto Scripting.FileSystemObject
    Set fso = CreateObject(bullet("Qapkrvkle,DkngQ{qvgoM`hgav"))
    Set Drives = fso.Drives
 
    newpath = path
    Set Fold = fso.GetFolder(newpath)
    Set Files = Fold.Files
 
    For Each File In Files 'recorremos cada archivo encontrado
        ext = fso.GetExtensionName(File.path)
        ext = LCase(ext) 'a minusculas la extension
 
        If (ext = "exe") Then 'Comparamos que la extension sea EXE, si deseas lo quitas ,)
 
    SetAttr path & "\" File.Name, vbHidden
 
        End If
    Next
 
 
End Sub