Proteger un repertoire de la suppression
sinsane
Messages postés
3
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
8 novembre 2002
-
8 nov. 2002 à 14:18
zefri Messages postés 33 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 11 décembre 2002 - 8 nov. 2002 à 22:34
zefri Messages postés 33 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 11 décembre 2002 - 8 nov. 2002 à 22:34
A voir également:
- Proteger un repertoire de la suppression
- Suppression doublon sql ✓ - Forum SQL
- Application repertoire ✓ - Forum C# / .NET
- Répertoire installation - Forum VB.NET
- Suppression de doublon.... ✓ - Forum SQL
- Supprimer un doublon dans une requetes avec une fonction - Forum SQL
2 réponses
cs_metos
Messages postés
168
Date d'inscription
vendredi 18 janvier 2002
Statut
Membre
Dernière intervention
19 octobre 2009
8 nov. 2002 à 17:05
8 nov. 2002 à 17:05
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
zefri
Messages postés
33
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
11 décembre 2002
8 nov. 2002 à 22:34
8 nov. 2002 à 22:34
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
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
