Discussion :

[michel.souris]

Bonjour,

Je viens de voir que la fonction fRépSelecteur ne gère pas les dossiers virtuels (on se demande pourquoi puisque le composant système utilisé, shell32, gère les dossiers virtuels dans d'autre contexte (sélection impossible)). Problème qui peut avoir certaines conséquences lors de l'utilisation du programme....

Je viens de voir également que wd19 propose un paramètre frInterditDossierVirtuel mais je suis en 17...

La seule idée que j'ai eu c'est de surchargé la fonction en recodant un sélecteur :

Code :

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

1
2
3
4
5
6
7
8
9
 
PROCEDURE fRepSélecteur(*)
 
BIF_RETURNONLYFSDIRS est un entier = 0x1
 
shShell est une objet Automation "Shell.Application"
strRetour est un objet Automation dynamique = shShell>>BrowseForFolder(Handle(""), MesParamètres[2], BIF_RETURNONLYFSDIRS, MesParamètres[1])
 
RENVOYER strRetour>>self>>path

Et vous, vous faites comment ?

[EDIT]
désolé pour le doublon, je me suis excité sur le clic et je trouve pas de fonction de suppression du message...
[/EDIT]

[serendib]

Merci à Mathurin Buffier

http://forum.pcsoft.fr/fr-FR/pcsoft....seven/read.awp

[michel.souris]

...heu c'est moi mais de rien !

[michel.souris]

Dois-je en conclure que tout le monde est passé à la v19 ?

[hpascal]

Salut Michel

Dois-je en conclure que tout le monde est passé à la v19 ?

Non pas encore, par contre chez moi en wd18, fRepertoireExiste retourne toujours FAUX sur les bibliothèques, donc pas de soucis ...
Mais bon ... vu que le comportement est visiblement différent chez d'autres personnes je vais attendre de passer à la v19 et me soucier du problème

[michel.souris]

Salut Pascal,

Donc si je comprend bien tu as surchargé la fonction fRepSélecteur en mettant un "IF fRepExiste" en sortie ? pas con....

[hpascal]

Oui mais ça n'a pas d'intérêt si le résultat n'est pas le même sur tous les postes
Enfin ... ça limite les dégâts pour l'instant

[michel.souris]

OK merci pour les infos !

Je vais voir ce que je fais...

Parce qu'en fait la source que j'ai posté ne semble pas fonctionner correctement sous XP puisqu'on peut sélectionner le "poste de travail"... mfs

[SevenSoftware]

Bonjour,

juste pour vérifier:
Dans certains de tes tests, tu dis qu'il a créé un repertoire "Images" dans \Exe.
Si tu ne l'a pas effacé, il est possible que fRepertoireExiste("Images") renvoie vrai car il teste en fait <MonProjet>\Exe\Images... (chemin relatif)

C'est sûrement pas ça, mais bon...

[michel.souris]

Merci SevenSoftware pour ton intérêt.

Non ce n'est pas le pb puisqu'au moment où je teste l'existence du répertoire il n'a pas encore été créé (c'est lorsqu'on cherche à enregistrer un fichier dans un répertoire non existant qu'il créé le dossier).

Voici un extrait d'un autre forum (http://forum.pcsoft.fr/fr-FR/pcsoft....seven/read.awp) :

"Il faut alors faire du bricolage en prévoyant l'affichage d'une erreur si frepselecteur renvoie "Images", "Documents", "Musique" ou "Vidéos".
Tiens d'ailleurs, autre étrangeté:
- Frepexiste("Images") renvoie vrai
- Frepexiste("Documents") renvoie vrai
- Frepexiste("Musique") renvoie faux
- Frepexiste("Vidéos") renvoie faux"

Le monde est fou.

[Yusep]

Bonjour
Et si tu utilises les noms en Anglais ?
En realite images c'est pictures sur le disque.

[michel.souris]

Ok j'aurais pas du faire aveuglement confiance à des tests effectués par quelqu'un d'autre !

Le fRepertoireExiste renvoit bien false pour les répertoires virtuels.... excuses hpascal si je t'ai fait douté. Ta solution est la bonne.

Merci à tous de vous être intéressé au pb...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PROCEDURE fRepSelecteur(*)
 
rep est une chaîne
 
rep =  WL.fRepSélecteur(MesParamètres)
 
IF NOT fRépertoireExiste(rep) THEN
	rep = ""
END
 
RENVOYER rep