Après avoir référencé "Microsoft Scripting Runtime", tu peux essayer ça
Private Sub ProtectDir(strPath As String)
On Error GoTo error
Dim fso As New FileSystemObject
Dim oFolder As Folder
Set oFolder = fso.GetFolder(strPath)
oFolder.Attributes = ReadOnly
Exit Sub
error:
MsgBox Err.Description
End Sub
-------------------------------
Réponse au message :
-------------------------------
Le moyen le plus simple est de mettre l'attribut "lecture seul". Par contre j'ai pas le code sous la main mais je l'ai vu passer sur le site. essaie d'utiliser le mot clé "attribut" pour la recherche
-------------------------------
Réponse au message :
-------------------------------
je voudrai proteger des dossiers de la suppressions
|