PowerBuilder à Donf ! / Changer les attributs d'un fichier

Dropy · 18-10-2006 14:34:58

Bonjour à tous,

J'ai découvert la magnifique fonction SetFileAttributes(ref string lpFileName,ulong dwFileAttributes) dans la liste des API proposée par l'incomparable Pick Ouic

Seulement le neuneu que je suis n'arrive pas à la mettre en oeuvre...

Mon but: Retirer l'attribut 'lecture seule' à tous les fichiers d'un répertoire.

Voici mon code:

Code: pb

//---------

String  ls_rep_source = "c:\source\",  &
  ls_fichier_source,    &
  ls_nom_complet
Int  li_nb_fichiers,    &
  li_i,      &
  li_result

//---
lb_fichiers.DirList(ls_rep_source+"*.*",0)

li_nb_fichiers = lb_fichiers.TotalItems()

For li_i  =  1  To li_nb_fichiers
  lb_fichiers.SelectItem (li_i)
  ls_fichier_source = lb_fichiers.SelectedItem ()
  ls_nom_complet = ls_rep_source + ls_fichier_source
  li_result = SetFileAttributes (ls_nom_complet, 1)
//  MessageBox ("test nom complet", ls_nom_complet)
//  MessageBox ("test code retour fonction", string (li_result))
End For

La fonction me retourne systématiquement 0. L'adresse des fichiers est bonne (enfin il semble...), peut-être cela vient-il du deuxième argument, je ne sais pas.

Bref, si quelqu'un a une idée, je suis preneur.

Merci d'avance,

Dropy.

pick ouic · 18-10-2006 15:41:42

regardes par la SetFileAttributes
tu trouveras surement ton bonheur

PB à toute heure et à tout moment. (à parcourir avec modération)

Annonce

#1 18-10-2006 14:34:58

Changer les attributs d'un fichier

Code: pb

#2 18-10-2006 15:41:42

Re: Changer les attributs d'un fichier

Pied de page des forums