Proteger un repertoire de la suppression

Signaler
Messages postés
3
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
8 novembre 2002
-
Messages postés
33
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
11 décembre 2002
-
je voudrai proteger des dossiers de la suppressions

2 réponses

Messages postés
168
Date d'inscription
vendredi 18 janvier 2002
Statut
Membre
Dernière intervention
19 octobre 2009

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
0
Messages postés
33
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
11 décembre 2002

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
0