Centre technique de beubeu

Aller au contenu | Aller au menu | Aller à la recherche

Modification attributs de fichiers en VBS

Dim stFichier
Dim oFSO, oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier = "C:\BDM\valeur.txt"

If oFSO.FileExists(stFichier) Then
  Set oFl = oFSO.GetFile(stFichier)
'  MsgBox "Attributes  :" & oFl.Attributes  & vbCrlf & _ 
'         "DateCreated :" & oFl.DateCreated  & vbCrlf & _ 
'         "DateLastAccessed :" & oFl.DateLastAccessed  & vbCrlf & _ 
'         "DateLastModified :" & oFl.DateLastModified  & vbCrlf & _ 
'         "Drive :" & oFl.Drive  & vbCrlf & _ 
'         "Name :" & oFl.Name  & vbCrlf & _ 
'         "ParentFolder :" & oFl.ParentFolder  & vbCrlf & _ 
'         "Path :" & oFl.Path  & vbCrlf & _ 
'         "ShortName :" & oFl.ShortName  & vbCrlf & _ 
'         "ShortPath :" & oFl.ShortPath  & vbCrlf & _ 
'         "Size :" & oFl.Size  & vbCrlf & _ 
'         "Type :" & oFl.Type  

  Wscript.echo("Valeur avant maj = " & oFl.Attributes)
  If oFl.Attributes = 1 Or oFl.Attributes = 33 Or oFl.Attributes = 35 Then
  ' Suppression de la lecture seule
  oFl.Attributes = oFl.Attributes - 1
  Wscript.echo("Valeur après maj = " & oFl.Attributes)
  End If
End If