j'ai besoin d'aide pour modifier un script FTP qui fait l’envoie d'un Fichier (FSORTMAP) .
Mon problème est que des fois la connexion FTP n'est pas correctement établi et l'envoie s'effectue quand mème, j'ai besoin d'aide pour créer une trace logs de suivi ainsi que l'envoi si la connexion est confirmé établi sinon attendre que la connection soit ok.
Cordialement,
script complet
- Code: Tout sélectionner
@echo off
title FTP EOD
set user=XXXXX
set pass=XXXXXX
set server=XX.XX.XX.XXX
rem commandfile of ftptransfer
set ftpcommandfile=D:\WSS\Runtime\Utils\ftp_transfer\ftpcommand.dat
rem local workdir where files are located
set localdir=D:\WSS\Runtime\Outbound
rem Scriptfiles located af commanddir
set commanddir=D:\WSS\Runtime\Utils\ftp_transfer
rem Postfix of the temporary filename
set postfix=tem
rem Postfixfinal of the Final filename
set postfixfinal=dat
rem Archived folder
Set Archived=D:\WSS\Runtime\Outbound_trace
if exist D:\WSS\Runtime\Outbound goto :trieur
goto end
:trieur
set datasource=D:\WSS\Runtime\Outbound\FSORTMAP.dat?
set filesource=D:\WSS\Runtime\Outbound\trans\FSORTMAP.dat?
set filedest=Inbound
set gotodest=trieur
goto createftpcmd
:Transfer
if not exist %datasource% goto waiting
if not exist D:\WSS\Runtime\Outbound\trans mkdir D:\WSS\Runtime\Outbound\trans
rem Archived Files
copy "%localdir%\FSORTMAP.dat" "%Archived%"
call %commanddir%\transfer-ftp.cmd
rem ----------------------------------------------------------------------------------------------------------------------------------------------------
rem -------------------------------------------------------------------------------------------------------------------------------------------------
rem je souhaite faire un controle de la connexion xx.xx.xx.xxx et si c'est pas ok attendre que la connection soit revenu pour envoyer mon fichier FSORTMAP.dat
rem si une perrsonne peux m'aider a structurer cela s'il vous plait
echo transfer files %gotodest%
move %datasource% D:\SCS\IO\towms\trans
if %errorlevel% neq 0 goto errormsg
del %filesource%
rem ---------------------------------------------------------------------------------------------------------------------------------------------------
rem --------------------------------------------------------------------------------------------------------------------------------------------------------------------
[quote][/quote]:errormsg
echo error in FTP transfer
echo -------------- >> errorfiles.txt
time /t >> errorfiles.txt
date /t >> errorfiles.txt
type %filesource% >> errorfiles.txt
goto :waiting
:waiting
echo Attente fin de journée %gotodest% .....
rem Fonction wait.exe ne fonctionne pas sous Windows 2000 server.
rem D:\WSS\Runtime\Utils\ftp_transfer\wait.exe 10000
timeout /t 30
goto %gotodest%
:createftpcmd
goto Transfer
:end
echo nothing to do
Merci à vous d'avance les programmeurs
