Fichier en lecture seule

Bonjour Markos,

J'ai bien une solution mais elle ne va pas te plaire :-)
Désolé, mais je ne vois pas comment, si tu es en lecture seule, une macro te
permettra de changer le statut: Par définition, si tu es en lecture seule tu
ne peux rien changer...(enfin, je crois)
Par contre, ce qui est possible c'est de faire une macro qui sauverait tout
tes fichiers sous leur nom+1, puis effacerait tous les fichiers originaux et
enfin renommerait tous les fichiers nom+1 par nom.
Bon, c'est un peu de boulot sur vba mais cela devrait marcher.(si tu as peu
de fichier ayant le problème, tu peux même le faire à la main)

Si tu décide de le faire et que tu as un problème, fais mois signe

Cordialement
benjamin

Bonjour la liste,
Depuis quelque temps, la plupart de mes fichier sont en lecture seule, y
compris les anciens (idem pour Word).
- système d'exploitation Win98, passé très récemment en Win98se pour
permettre l'utilisation du nouveau modem ADSL
- pack office 2000
Que puis-je faire pour ne plus avoir ce souci ?
Existe t-il une macro (ou autre) pour changer l'attribut de tous les
fichiers ?

Merci par avance

Bonjour Markos,

Voici une petite procédure pour modifier l'attribut des fichiers de tout un répertoire :

'------------------------------
Sub Modifier_File_Attribut()
Dim Source As String
Dim CheminSource As String

Dim Fs As Object, F As Object

Set Fs = CreateObject("Scripting.FileSystemObject")
'le Répertoire désiré :
CheminSource = "C:Access"

Source = Dir(CheminSource & "*.*")

Do While Source <> ""
Set F = Fs.Getfile(CheminSource & Source)
F.Attributes = 0
Source = Dir()
Loop
Set Fs = Nothing
End Sub
'------------------------------

Salutations!




"Markos" <markos.psb@tiscali.fr> a écrit dans le message de news:eWODxQMvEHA.1372@TK2MSFTNGP14.phx.gbl...
Bonjour la liste,
Depuis quelque temps, la plupart de mes fichier sont en lecture seule, y
compris les anciens (idem pour Word).
- système d'exploitation Win98, passé très récemment en Win98se pour
permettre l'utilisation du nouveau modem ADSL
- pack office 2000
Que puis-je faire pour ne plus avoir ce souci ?
Existe t-il une macro (ou autre) pour changer l'attribut de tous les
fichiers ?

Merci par avance

Salut michdenis,

je savais pas que l'on pouvait changer un fichier en read-only...
Comme quoi on en apprend tos les jours

Cordialement
Benjamin

Bonjour Markos,

Voici une petite procédure pour modifier l'attribut des fichiers de tout un répertoire :

'------------------------------
Sub Modifier_File_Attribut()
Dim Source As String
Dim CheminSource As String

Dim Fs As Object, F As Object

Set Fs = CreateObject("Scripting.FileSystemObject")
'le Répertoire désiré :
CheminSource = "C:Access"

Source = Dir(CheminSource & "*.*")

Do While Source <> ""
Set F = Fs.Getfile(CheminSource & Source)
F.Attributes = 0
Source = Dir()
Loop
Set Fs = Nothing
End Sub
'------------------------------

Salutations!




"Markos" <markos.psb@tiscali.fr> a écrit dans le message de news:eWODxQMvEHA.1372@TK2MSFTNGP14.phx.gbl...
Bonjour la liste,
Depuis quelque temps, la plupart de mes fichier sont en lecture seule, y
compris les anciens (idem pour Word).
- système d'exploitation Win98, passé très récemment en Win98se pour
permettre l'utilisation du nouveau modem ADSL
- pack office 2000
Que puis-je faire pour ne plus avoir ce souci ?
Existe t-il une macro (ou autre) pour changer l'attribut de tous les
fichiers ?

Merci par avance