Fichiers caches qui deviennent visibles

Pour modifier l'attribut d'un fichier : 
Tu adaptes le chemin et le nom du fichier que tu désires 
modifier l'attribut. 

-------------------------------- 
Sub Attributs(NomFichier as String ) 
    Dim FS As Object 
    Set FS = CreateObject("Scripting.FileSystemObject") 
    Set f = FS.GetFile(NomFichier) 
    f.Attributes = 0 
    Set FS = Nothing: Set F = Nothing 
End Sub 
------------------------------------ 

'Normal        0       Fichier normal. Aucun attribut n'est défini. 
'ReadOnly    1       Fichier en lecture seule. L'attribut est en lecture/écriture. 
'Hidden        2       Fichier caché. L'attribut est en lecture/écriture. 
Complément dans l'aide sous  "Attributes" 

 

Pour appeler cette procédure : 
--------------------- 
Sub AppelAttributs() 

Attributs "C:\Mes documents\classeur1.xls" 
End sub