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

[newbiegeek]

merci, je vais essayer vos réponses

[newbiegeek]

ok nickel, ça met bien en lecture seule

par contre, quelqu'un a-t-il une idée de pourquoi le fichier n'est pas renommé quand je veux? (cf 2° question au départ)

il me manque plus que ça pour avoir fini ce p***** de script correctement.

[marabout]

Perso, face au même problème, je n'étais pas parvenu à renommer le fichier donc je l'ai copié et supprimé

[roro06]

Bonjour

J'ai peut-etre pas bien compris la question , mais pour renommer un fichier, il "suffit" de modifier son attribut Name :

Code :

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

F.Name="newName.txt"

[marabout]

Trop simple mais tellement évident !

[Cpas2latarte]

Avant tout assure toi que le compte NT pour IIS (IUSR_NOMMACHINE)
à le droit en MODIFICATION sur le répértoire.

[newbiegeek]

merci pour vos réponses
je vais essayer de voir ce truc là

[newbiegeek]

bon, ben j'ai choisi une solution un peu bourrine:
j'utilise un répertoire tampon (qui sert à d'autres moments dans l'application)
je fait un déplacement du fichier une fois de mon répertoire vers ce répertoire tampon, puis depuis ce répertoire tampon vers mon répertoire avec le nom que je veux... je comprend par pourquoi le déplacement dans le meme répertoire ne fonctionne pas, mais le tout, c'est que j'aie trouvé une solution fonctionnelle (même si pas très propre...)

j'espère que le flot de solutions qui ont été proposées ici seront suffisantes pour aider ceux qui en auront besoin par la suite, et je considère de mon coté que mon problème est résolu.