Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System
Imports System.IO
....
....
Sub ...
Dim Attributs As FileAttributes
Attributs = File.GetAttributes(CheminEtFichier)
'32 = Lecture écriture
'33 = Lecture seule
'34 = Caché
'35 = 33 et 34
Dim attributs As FileAttributes = IO.File.GetAttributes(file)
If CBool(attributs And FileAttributes.Hidden) = False And CBool(attributs And FileAttributes.ReadOnly) = False Then
'Le code ici...
End If