rem @echo off rem variables echo liste des servers rem for %%v in (%lesftpserver%) do (echo %%v) for /F "delims=" %%v in (electron-server.txt) do (echo %%v) rem test si winscp n'est pas deja actif TASKLIST /NH | FIND /I "winscp" SET NodLevel=%ERRORLEVEL% IF %NodLevel%==0 GOTO fin goto debut rem tasklist | find "winscp" /C /I | %nbpros% rem START /NORMAL electron.bat rem test si winscp n'est pas deja actif :debut cd %~dp0 rem test presence de fichier .k7 cd C:\photo-dt\base\aenvoyer IF EXIST C:\photo-dt\base\aenvoyer\*.k7 GOTO OUI GOTO FIN :OUI rem récriture du nom de ph cd C:\photo-dt\base\..\ num-ph-k7.exe rem Test de la connexion ftp cd %~dp0 rem for %%v in (%lesftpserver%) do ( for /F "delims=" %%v in (electron-server.txt) do ( winscp419.exe /console /command "option batch abort" "option confirm off" "open %%v -passive=on" "ls" "close" "exit" rem winscp419.exe /console /script=elec-test-connex.txt if errorlevel 1 goto error ) rem Test de la connexion ftp rem synchro cd C:\photo-dt rem Pour synchroniser sur GPS--- SyncGPS2n.exe rem SyncGPS_com4.exe rem --------------------------- rem envoi FTP rem cd C:\WinSCP\ cd %~dp0 rem Mode Abort si une erreur survient rem for %%v in (%lesftpserver%) do ( for /F "delims=" %%v in (electron-server.txt) do ( winscp419.exe /console /command "option batch abort" "option confirm off" "open %%v -passive=on" "put C:\photo-dt\*-info.txt" "put C:\photo-dt\base\aenvoyer\*.k7" "close" "exit" if errorlevel 1 goto error ) echo Upload succeeded, moving local files rem del C:\photo-dt\base\mail-auto-error.txt cd C:\photo-dt\base\..\ rangek7-h.exe GOTO FIN :error echo Upload failed, keeping local files :fin rem pause exit