Optimisation script batch

**rungis** · 17/06/2015, 17h29

Bonjour,

Je souhaite optimiser un batch qui fonctionne mais qui n'est pas très performant lorsqu'il est appelé par une tache planifiée qui tourne toutes les 2 minutes. Je pensais à le convertir en VBS pour tester.

Le but de ce script est de déplacer des fichiers dans un répertoire dédié et d'appeler un programme .exe qui va intégrer ces fichiers dans une base de données, voici le 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
SET REPTRV=D:\EDI\ptd\gvh\PROD\in\
SET REPPGM=D:\interfaces\ptd\gvh\PROD\in\
SET REPPGT=D:\INTERFACES\PTD\GVH\PROD\OUT\
 
:DEBUT
IF EXIST %REPTRV%*_VA00* GOTO VA00
IF EXIST %REPTRV%*_VA01* GOTO VA01
IF EXIST %REPTRV%*_TR01* GOTO TR01
IF EXIST %REPTRV%*_TD01* GOTO TD01
IF EXIST %REPTRV%*_RD01* GOTO RD01
IF EXIST %REPTRV%*_HR01* GOTO HR01
IF EXIST %REPTRV%*_VA02* GOTO VA02
IF EXIST %REPTRV%*_RD02* GOTO RD02
IF EXIST %REPTRV%*_VE01* GOTO VE01
IF EXIST %REPTRV%GATEIN\*.TXT GOTO GATEIN
IF EXIST %REPTRV%*_RD00* GOTO RD00
GOTO GATE
 
PING 1.1.1.1 -n 1 -w 1200 > NUL
GOTO DEBUT
 
REM ************* DEBUT VA00
:VA00
MOVE /Y %REPTRV%*_VA00* %REPTRV%VA00
CD %REPPGM%VA00
%REPPGM%VA00\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN VA00
 
REM ************* DEBUT RD00
:RD00
MOVE /Y %REPTRV%*_RD00* %REPTRV%RD00
CD %REPPGM%RD00
%REPPGM%RD00\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN RD00
 
REM ************* DEBUT VA01
:VA01
MOVE /Y %REPTRV%*_VA01* %REPTRV%VA01
CD %REPPGM%VA01
%REPPGM%VA01\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN VA01
 
REM ************* DEBUT TD01
:TD01
MOVE /Y %REPTRV%*_TD01* %REPTRV%TD01
CD %REPPGM%TD01
%REPPGM%TD01\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN TD01
 
REM ************* DEBUT TR01
:TR01
MOVE /Y %REPTRV%*_TR01* %REPTRV%TR01
CD %REPPGM%TR01
%REPPGM%TR01\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN TR01
 
REM ************* DEBUT RD01
:RD01
MOVE /Y %REPTRV%*_RD01* %REPTRV%RD01
CD %REPPGM%RD01
%REPPGM%RD01\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN RD01
 
REM ************* DEBUT HR01
:HR01
MOVE /Y %REPTRV%*_HR01* %REPTRV%HR01
CD %REPPGM%HR01
%REPPGM%HR01\ptd_autotrans_in.exe
GOTO RD01
REM ************** FIN HR01
 
REM ************* DEBUT RD02
:RD02
MOVE /Y %REPTRV%*_RD02* %REPTRV%RD02
CD %REPPGM%RD02
%REPPGM%RD02\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN RD02
 
REM ************* DEBUT VA02
:VA02
MOVE /Y %REPTRV%*_VA02* %REPTRV%VA02
CD %REPPGM%VA02
%REPPGM%VA02\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN VA02
 
REM ************* DEBUT VE01
:VE01
MOVE /Y %REPTRV%*_VE01* %REPTRV%VE01
CD %REPPGM%VE01
%REPPGM%VE01\ptd_autotrans_in.exe
GOTO DEBUT
REM ************** FIN VE01
 
REM ************* DEBUT GATEIN
:GATEIN
CD %REPPGM%GATEIN
%REPPGM%GATEIN\gatein.exe
GOTO DEBUT
REM ************** FIN GATEIN
 
REM ************* DEBUT GATE
:GATE
CD %REPPGT%GATE
%REPPGT%GATE\att_gat.exe
GOTO GXM
REM ************** FIN GATE
 
REM ************* DEBUT GXM
:GXM
CD %REPPGT%GXM
%REPPGT%GXM\att_gat.exe
REM ************** FIN GXM
 
exit

Pouvez-vous m'indiquer quel est le language approprié que je devrais utiliser pour optimiser ce batch et comment dois-je m'y prendre svp ?

Merci d'avance

**rungis** · 24/06/2015, 12h08

Bonjour,
Après quelques recherches, le problème que je rencontre est le fait que le if exists *filename* n'existe pas en vbs.
Il faut d'après ce que j'ai lu faire une boucle:

For Each
If instr *filename* then lancement du programme
Else ...
End If

Mais le problème réside dans le fait que le traitement va exécuter le programme à chaque fois qu'il rencontre un fichier et ce n'est pas le but recherché.
Le but est de déplacer tous les fichiers dans un sous répertoire et d’exécuter le programme sur l'ensemble de ces fichiers.

Avez-vous une suggestion/idée svp ?

**ProgElecT** · 24/06/2015, 12h34

Envoyé par Script56.CHM

FileExists, méthode
Renvoie True si un fichier spécifié existe et False dans le cas contraire.

object.FileExists(filespec)

Arguments
object
Requis. Correspond toujours au nom d'un objet FileSystemObject.
filespec
Requis. Nom du fichier dont l'existence doit être vérifiée. Une spécification complète de chemin d'accès (absolue ou relative) doit être fournie si le fichier n'existe probablement pas dans le dossier actuel.

Où trouver l'aide en ligne pour VBScript ?

**rungis** · 25/06/2015, 22h02

En utilisant cette méthode cela ne fonctionne pas:

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
Dim REPTRV
Dim REPPGM
Dim REPPGT
Dim objFSO 
 
REPTRV = "c:\EDI\ptd\gvh\recette\in\"
REPPGM = "c:\interfaces\ptd\gvh\recette\in\"
REPPGT = "c:\INTERFACES\PTD\GVH\recette\OUT\"
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
If (fso.FileExists(REPTRV & "*_VA00*")) Then
     WScript.Echo("VA00 exists!")
   Else
     WScript.Echo("File doesn't exist!")
End If
 
WScript.Quit()