Retirer l'attribut Lecture seule à un fichier

Oublié de dire que j'utilise

Set fs = CreateObject("Scripting.FileSystemObject")

Peut etre cela a t'il une importance.

Toute méthode m'intéresse. Merci d'avance.

Alain

"Alain Ménard" <amenard@vision-tech.fr> a écrit dans le message de
news:436a39e1$0$4346$626a54ce@news.free.fr...

Bonjour à tous,

Je souhaiterais avec VB6 retirer l'attribut "Lecture seule" d'un fichier
copié d'un CD, le modifier et remettre l'attribut.

Est ce possible ?


Merci

Alain

Bonjour Alain Ménard,
Alain Ménard a écrit :

Bonjour à tous,

Je souhaiterais avec VB6 retirer l'attribut "Lecture seule" d'un fichier
copié d'un CD, le modifier et remettre l'attribut.

Est ce possible ?

Oui :

Dim Attr As Long

Attr = GetAttr(NomduFichier)
SetAttr NomDuFichier, Attr And Not vbReadOnly


--
Cordialement,

Jacques.

Bonjour Alain Ménard,
Alain Ménard a écrit :

Oublié de dire que j'utilise

Set fs = CreateObject("Scripting.FileSystemObject")

Peut etre cela a t'il une importance.

Toute méthode m'intéresse. Merci d'avance.

Avec le FileSystemObject :

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(NomDuFichier)
f.Attributes = f.Attributes And Not 1 'ReadOnly

--
Cordialement,

Jacques.

Merci Jacques. Parfait

Alain