Discussion :

[newbiegeek]

Bonjour chere communauté qui m'a déjà bien aidé par ce forum,

j'ai un petit problème sur la gestion de fichier. je dois faire une copie d'un fichier et la mettre en lecture seule, et ce, malgré toutes les versions que j'ai pu trouver, aucune des versions que j'ai mises ne fonctionne, j'ai essayé avec:

• ceci:

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
   
  Set ObjFSO = Server.CreateObject ("Scripting.FileSystemObject")
  set F= ObjFSO.getFile( vRepDef & vFichierRO )
  F.Attributes= F.Attributes + ReadOnly
  F.Close
  set F= nothing

• puis ceci:
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  Set ObjFSO = Server.CreateObject ("Scripting.FileSystemObject")
  set F= ObjFSO.getFile( vRepDef & vFichierRO )
  F.Attributes= F.Attributes + 1
  F.Close
  set F= nothing

• et enfin ceci:

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  Set ObjFSO = Server.CreateObject ("Scripting.FileSystemObject")
  set F= ObjFSO.getFile( vRepDef & vFichierRO )
  set F.Attributes= F.Attributes + ReadOnly
  F.Close
  set F= nothing

vRepDef est le chemin du fichier et vFichierRO son nom relatif (après les "\"), ils marchent très bien puisque le fichier existe bel et bien.

j'ai aussi essaye le getFile sans les parenthèses, mais toujours sans succès.

je commence à désespérer, parce que comme d'habitude, je trouve un fossé entre la théorie et la pratique... surtout que le serveur IIS sur lequel je bosse a l'air un peu chaotique.

j'ai aussi un problème à un moment donné: selon une action qui peut etre effectuée par certains utilisateurs, je peux être amené à changer le nom de 2 fichiers dans ma base: le changement de la chaine du nom est correct (on m'a déjà aidé à réaliser ce changement), mais hélas, j'ai encore un problème avec un objet FSO.
voilà le code que j'ai pour renommer ces 2 fichiers (et normalement il remet celui qui était en lecture seule en lecture seule, mais évidemment, ça ne marche pas ce truc)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
set ObjFSO= Server.CreateObject("Scripting.FileSystemObject")
			if ObjFSO.FileExists(vNomAbsolu) Then ObjFSO.MoveFile vNomAbsolu,vNewAbsolu
			if ObjFSO.FileExists(vROAbsolu) then
			    ObjFSO.MoveFile vROAbsolu , vNewROAbsolu
			   set F = ObjFSO.getFile(vNewROAbsolu)
			   F.Attributes= F.Attributes+ ReadOnly
			   F.Close
			end if

il y a 4 chemins absolus en jeu, qui théoriquement n'ont aucune raison d'etre mauvais, donc bon...

est-ce que quelqu'un a une idée à propos de ces 2 problèmes qui sont relativement liés?

Merci d'avance

[Cpas2latarte]

aucune des versions que j'ai mises ne fonctionne

qu'est ce qui ne fonctionne pas en faite ? L'attribut du fichier n'est pas le bon ? un message d'erreur ?

Pour la construction du chemin :

set F= ObjFSO.getFile( vRepDef & vFichierRO )

je te conseille plutôt d'utiliser la methode "buildpath". Car ça gere tout seule le "\" entre le chemin et le fichier/dossier enfant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ObjFSO.getFile( ObjFSO.buildPath(vRepDef, vFichierRO) )

[newbiegeek]

en fait, lorsque je vais voir le fichier et que je clique sur Propriétés, l'attribut lecture seule n'est pas coché, c'est assez embetant...

pour le buildPath, c'est une bonne idée, meme si normalement le chemin devrait fonctionner

et sinon, quelqu'un peut-il me dire si l'une de mes syntaxes est bonne et laquelle? ou que dois-je utiliser pour mettre en lecture seule? merci d'avance

[marabout]

je ne sais pas si la propriété Attributes est updateable mais si c'est possible, tu dois lui donner la valeur 1 (pas +1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F.Attributes= 1

[roro06]

Bonjour

Si si, Attributes est updatable, c'est un octet et chaque bit représente un attribut, l'attribut readOnly étant le premier bit de poids faible (celui de droite). Donc il faut bien faire =+1, sous la condition qu'il soit pair avant la modif (s'il est impair, cela veut dire qu'il est déjà en readOnly).

En jScript :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if ((F.Attributes && 1) == 0)
    {
        F.Attributes += 1;
    }

[Cpas2latarte]

si c'est un bit alors il vaut mieux faire de la sorte :
(JS)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
F.Attributes = F.Attributes |1;

(VBS)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
F.Attributes = F.Attributes Or 1