Bonjour à tous,
J'aimerais regrouper chaque morceaux en unscript (acheminement ci-dessous) :
1er étape - Copie des dossiers et sous répertoire (avec WinSCP)
2eme étape - Suppression fichiers/dossiers (ftp://SQCUSER:*****@192.168.10.101/) repertoire : /IND890SQC/Reports
3eme étape - Déplacement des *.csv (regroupés sur les différents dossiers du rép : /IND890SQC/Reports) vers la racine du dossier depuis Y:\Dossier
4eme étape - mdelete * (de tous les fichiers et dossiers nommés "Sample") de tous les dossiers/fichier du dossier (Y:\Dossier)
5eme étape - Exécution de la macro :
Par avance merci !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 (Sub Déclenche() Application.OnTime TimeValue("15:10:00"), "Recup" End Sub)
1 er étape :
Code batch : 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 Rem Copie des dossiers FTP vers Sauvegarde (avec WinSCP) "C:\Program Files\WinSCP\WinSCP.com" ^ /ini=nul ^ /command ^ "open ftp://SQCUSER:****@192.168.10.101/" ^ "cd /IND890SQC/Reports" ^ "lcd C:\Users\cheyenne\Desktop\Dossier" ^ "get *" "exit" set WINSCP_RESULT=%ERRORLEVEL% if %WINSCP_RESULT% equ 0 ( echo Success ) else ( echo Error ) exit /b %WINSCP_RESULT%
2ème étape : ajout du "rm *" (ceci permettra de supprimer tous les dossiers présents sur le ftp) avec WinSCP
3ème étape : (Basculement en cmd simple "cmd.exe")
Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 set source="Y:\Dossier" for /f "tokens=*" %%A In ('dir /s /b /a-d "%source%\*.csv"') do (move /y "%%A" "%source%")
4eme étape :
Fonction récursive (Suppression fichiers "Sample") :
Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 @echo off set source=le dossier "racine" cd %USERPROFILE% for /f "tokens=*" %%A In ('dir /a-d /b /s %source%\*.* ^| find /i "Sample"') do (del /f "%%A" && echo %%~sA = suppression OK && echo.) pause
5eme étape :
Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Rem execution du fichier contenant la macro "C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE" "X:\METROLOGIE\IND 890\Poidmettler.xlsm"
Partager