Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
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:
//--------- 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.
Hors ligne
regardes par la SetFileAttributes
tu trouveras surement ton bonheur
Hors ligne