Problème exécution .bat

**GiGii** · 11/09/2012, 08h53

Bonjour,

Je crée un fichier .bat à exécuter automatiquement.

Le soucis c'est que lorsque je le fais par le programme rien ne se passe or si je double clique manuellement sur le .bat le fichier s'exécute..

Tout porte à croire que ma commande ne trouve pas le chemin spécifié..

Voyez donc :

Déclarations globales :
DossierUser est une chaîne=fRepDonnéesUtilisateur()+"\netSend.bat"

Code d'exécution :
lanceappli(dossieruser) // première méthode rien ne se passe
DDELance("Command.com " + DossierUser) // deuxième méthode rien ne se passe

Je fais le test sur une machine en W2k..

Une idée de pourquoi ça ne fonctionne pas?
je désespère ..

Merci d'avance

**miripesage** · 11/09/2012, 09h07

bonjour, à tester :

Envoyé par GiGii

Bonjour,

Je crée un fichier .bat à exécuter automatiquement.

Le soucis c'est que lorsque je le fais par le programme rien ne se passe or si je double clique manuellement sur le .bat le fichier s'exécute..

Tout porte à croire que ma commande ne trouve pas le chemin spécifié..

Voyez donc :

Déclarations globales :
DossierUser est une chaîne=fRepDonnéesUtilisateur()+"netSend.bat"Code d'exécution :
lanceappli(dossieruser) // première méthode rien ne se passe
DDELance("Command.com " + DossierUser) // deuxième méthode rien ne se passe

Je fais le test sur une machine en W2k..

Une idée de pourquoi ça ne fonctionne pas?
je désespère ..

Merci d'avance

**frenchsting** · 11/09/2012, 09h07

Ton netsend.bat, tu mets quelquechose dedans ? (instruction du style fsauvetexte("net send...", DossierUser)

As tu fais un

Code :

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

1
2
3
4
5
si ffichierexiste(DossierUser) alors
  info("Gagné !")
sinon
  erreur("Perdu !")
fin

pour voir si ton fichier est bien là ?

**gancau** · 11/09/2012, 09h08

Bonjour
Peut être que le répertoire d'exécution n'est pas correct, essaye de regarder en ce sens.
aussi bien dans le lance appli que dans le ddelance, tu peux paramétrer le répertoire d'exécution.
Bon dev
Gancau

**GiGii** · 11/09/2012, 09h33

Oui il y a bien quelque chose dedans et quand il faut écrire dedans l'écriture se fait bien. Le soucis est juste au niveau du lancement manuellement.

Comme quand je double clique dessus manuellement ça fonctionne je pense que le seul problème et que lorsque la fonction de lancement est appelée elle ne trouve pas le chemin d'accès au fichier.

Le "\" n'a en rien arrangé les choses au contraire pour répondre à la première suggestion.. mais merci tout de même

**miripesage** · 11/09/2012, 09h44

lors utilise "LanceAppliAssociée"

**gancau** · 11/09/2012, 09h44

Re bonjour
Est-ce que ton .bat se trouve là où se trouve l'exe de ton appli ?
Est-ce que tu as eu un gagné ou un perdu comme te l'as proposé frenchsting ?
Gancau

**frenchsting** · 11/09/2012, 09h51

Il y a peut ^tre un problème d'écriture différée. Essaye de mettre un multitâche(-100) par exemple.
As-tu essayé de faire un débogage ?

et faire un :

Code :

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

1
2
3
SI pas lanceAppli(...) ALORS
   Erreur(ErreurInfo())
FIN

pour tracer l'erreur éventuelle ?

**GiGii** · 11/09/2012, 10h01

il existe bien et il le trouve bien.

(j'avais pas pensé que mon lance appli pouvait renvoyé un erreurinfo.. Erreur de débutant sorry .. )

Il me dit qu'il ne peut pas le lancer car le fichier est utilisé par un autre processus..
avec lanceappliassociée il me dit que le document n'a pas été ouvert à cause d'un problème de partage.

Code :

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

1
2
3
4
5
6
7
	Multitâche()
		SI LanceAppliAssociée(DossierUser) ALORS
			Trace("oui")
		SINON
			Trace(ErreurInfo())			
		FIN
		Multitâche(100)

peut être que le multitâche fonctionnerai mais je ne vois pas ou le mettre..
éventuellement je devrais pas plutôt le mettre avant la fonction qui exécute ce code?

**gancau** · 11/09/2012, 10h21

Comment crées tu ton . bat ?
Dans ton appli qui le lance ?
Si c'est le cas, tu as fait comme cela ?

Code :

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

1
2
3
numbat=fouvre("le.bat",focreation+foecriture)
...
Fferme(numbat)

sans oublier le fferme ?

Gancau

**frenchsting** · 11/09/2012, 10h24

Je plussoie Gancau.

Autre méthode : fsauvetexte(NomFichierBat,TexteAenregistrer)
Un petit multitache(-100) après si besoin

**miripesage** · 11/09/2012, 10h24

[

Code :

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

1
2
3
4
5
6
			SI LanceAppliAssociée(DossierUser) ALORS
                        Multitâche(-100)
			Trace("oui")
		SINON
			Trace(ErreurInfo())			
		FIN

**GiGii** · 11/09/2012, 10h29

Dans les déclarations globales :

Code :

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

1
2
DossierUser est une chaîne=fRepDonnéesUtilisateur()+"\netSend.bat"
DossierIni est une chaîne = fRepDonnéesUtilisateur()+"\netSend.ini"

Je déclare deux fichiers un bat et un ini
Le .bat me permet d'exécuter et le .ini me permet de vérifier si il y a un nouveau message

Ensuite à l'initialisation j'écris une clé de registre.. et je lance mon appli timer

Code :

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

1
2
3
4
5
6
7
8
9
SI PAS RegistreExiste(gsHKey, "WD_NetSend") ALORS
	SI PAS RegistreEcrit(gsHKey,"WD_NetSend",ExeInfo(exeNom)) ALORS
		Erreur("Impossible d'écrire la clé dans le registre.." + ErreurInfo())
	FIN
FIN
Iconise(FEN_NetSend_Mess)
FEN_NetSend_Mess..Visible = Faux
 
netSend()

Procédure netsend()

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
idfichier est un entier 
resecriture est une chaîne
sChaineSansRC est une chaîne de 128
sChaine est une chaîne
 
gnCode = INILit("Messages", "code", "", DossierIni)
HLitDernier(Messages,Code)
SI Messages.NetSend = Vrai ALORS
	SI Messages.Code <> gnCode ALORS
 
		sChaine = Messages.Corps 
		POUR TOUTE CHAÎNE sSOuschaine DE sChaine SÉPARÉE PAR RC
			sChaineSansRC += sSOuschaine + " " 
		FIN
 
		sChaineSansRC= AnsiVersOem(sChaineSansRC)
// Je supprime le .bat et je le recrée (sinon il écrase pas il mélange les deux textes et le focréation avait prob de droit d'accès en écriture.. Bizarrement ainsi ça passe)
		fSupprime(DossierUser)
// Création et ouverture du netSend.bat dans le frepdonnéesutilisateurs
		idfichier = fOuvre(DossierUser,foCréationSiInexistant)
		SI idfichier <> -1 ALORS
			resecriture = fEcrit(idfichier,"net send *  "+ sChaineSansRC )
		SINON
			Trace(ErreurInfo())
 
		FIN
		Multitâche()
		SI LanceAppliAssociée(DossierUser) ALORS
		//si lanceappli(fRepDonnéesUtilisateur()+"\netSend.bat",exeactif,exeNonBloquant,fRepDonnéesUtilisateur()) alors
			Trace("oui")
		SINON
			Trace(ErreurInfo())			
		FIN
		Multitâche(100)
	//	lanceappli("\netSend.bat",exeactif,exeNonBloquant,fRepDonnéesUtilisateur())
	//	DDELance("Command.com " + DossierUser)
		INIEcrit("Messages", "code", Messages.Code,DossierIni)
		INIEcrit("Messages", "corps", Messages.Corps, DossierIni)
 
		fAttribut(DossierUser,"H")
		fAttribut(DossierIni,"H")
	FIN
FIN

Voila j'ai mis tout le code de l'exe.

**frenchsting** · 11/09/2012, 10h53

remplace :

Code :

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

1
2
3
4
5
6
7
8
	Multitâche()
	SI LanceAppliAssociée(DossierUser) ALORS
	//si lanceappli(fRepDonnéesUtilisateur()+"\netSend.bat",exeactif,exeNonBloquant,fRepDonnéesUtilisateur()) alors
		Trace("oui")
	SINON
		Trace(ErreurInfo())			
	FIN
	Multitâche(100)

Par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
	SI idfichier <> -1 ALORS
		resecriture = fEcrit(idfichier,"net send *  "+ sChaineSansRC )
	SINON
		Trace(ErreurInfo())
		
	FIN
             fferme(idfichier)		
             Multitâche()
	si lanceappli(fRepDonnéesUtilisateur()+"\netSend.bat",exeactif,exeNonBloquant,fRepDonnéesUtilisateur()) alors
		Trace("oui")
	SINON
		Trace(ErreurInfo())			
	FIN
	//Multitâche(100)

**GiGii** · 11/09/2012, 11h10

Un simple fferme était donc la solution.

Un grand merci je le classe en résolu !

Problème exécution .bat [WD17]

WinDev

Discussions similaires

Partager

Partager