Discussion :

[Bernardo39]

Bonjour,

Je suis développeur en WINDEV et WEBDEV depuis quelques mois.
Je bute sur un problème bien particulier depuis peu :

• • Dans une procédure, je crée, paramètre et lance un script VBS.
  • Dans WINDEV ça marche, j'ai quand même introduit une temporisation (1 s) entre la création puis fermeture du fichier VBS et le lanceApplicationAssociée qui l'utilise.
  • Dans WEBDEV, ça ne marche pas (j'ai bien sur traité la tempo avec la fonction Multitâche() car Temporisation() n'est pas gérée par WEBDEV.
  • Quand je lance en déboguage, ça marche super (bien sur, ça va lentement).
  • Quand je le lance en execution normale, j'ai une fenêtre de Windows me disant qu'il ne trouve pas le script vbs !? Pourtant il est là !

A tout hasard je laisse un bout de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
// enfin on modifie le texte du script et on le met dans un fichier vbs qu'on crée pour la circonstance (sera supprimé)
 
scriptvbs = script
scriptvbs = Remplace(scriptvbs,"CHEMINCOMPLET",fichierModèle)
scriptvbs = Remplace(scriptvbs,"BLOCREMPLACEMENT",bloc)
scriptvbs = Remplace(scriptvbs,"CHEMIN",chemin)
scriptvbs = Remplace(scriptvbs,"NOMFICHIERHTM",fichierHtmCréé)
id1 est un entier = fCrée(fichierVbsCréé)
fSauveTexte(fichierVbsCréé,scriptvbs)
 
// on lance le script pour faire le travail :
 
fFerme(id1)
Multitâche(100)
LanceAppliAssociée(fichierVbsCréé)
 
// on récupère le fichier créé par le script dans la zone de saisie HTML :
 
Texte_HTML_Préparation = fChargeTexte(fichierHtmCréé)
Cellule_MailPréparé..Visible = Vrai
 
// on efface les fichiers devenus inutiles :
 
fSupprime(fichierHtmCréé)
fSupprime(fichierVbsCréé)
 
RENVOYER Vrai

Ca coince entre les lignes 13 et 15, sauf en pas à pas.
Je pense que ça vient du fait que Windows s'empare du fichier avant que WEBDEV l'ai laché, ça expliquerait pourquoi ça marche en déboguage au pas à pas par F7, mais c'est un peu simpliste.
Si quelqu'un a une idée,
Merci d'avance

[SevenSoftware]

Bonjour,

fSauveTexte crée le fichier et le remplit. il n'y a pas besoin de le créer avant
avec fCrée. (voir à la fin de l'aide le code équivalent à fSauveTexte)

De plus, entre le mode test et le réel, d'une part, fSauveTexte et LanceAppliAssociée d'autre part, il y a peut-être une différence de répertoire par défaut.
En précisant le chemin complet, ça marche peut-être mieux...

Patrick