J'aurais besoin de savoir si certain d'entre vous avez déjà copié ou enregistrer des archives sur un serveur FTP grâce à un IHM Siemens développé sur WINCC Flexible 2008 (SP5) ?
Merci d’avance pour votre aide et du temps pris pour lire ce post
![Sourire :)](./images/smilies/icon_e_smile.gif)
Code : Tout sélectionner
'*******************************************************************************************************************************************************************
'Script qui permet de copier des fichiers d'un dossier source vers un dossier destination avec création d'un nouveau fichier [Nom]_[Date_IHM]_Heure_IHM]*********
'*******************************************************************************************************************************************************************
'Selectionner le SrcPath, DefFile, DstPath de votre choix et mettez le NameFolder en fonction de votre machine.*******************************************************
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
On Error Resume Next
Dim SrcPath, DefFile, NameFolder, DstPath
'Chemin source ou se trouve les fichiers à copier
SrcPath = "\Storage Card USB\"
'SrcPath = "\flash\"
'SrcPath = "\Storage Card SD\"
'Type de fichier à copier (*.* = tout les fichiers)
DefFile = "*.*"
'DefFile = "*.extension"
'DefFile = "Nom.*"
'Nom du nouveau dossier de sauvegarde (Modifier le texte dans "TEST")
NameFolder = "TEST"
'Chemin de destination ou les fichiers seront copiés
DstPath = "\\FR-SOD-L-09434\test\LOGS\"
'DstPath = "\Storage Card SD\"
'DstPath = "\Storage Card USB\"
'DstPath = "\flash\"
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
'CODE 'CODE 'CODE
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
'*******************************************************************************************************************************************************************
'Déclaration des variables
Dim strTemp, fs, copyFile, Files, fileFields, m, weldCount, strTemp1, strDir
Dim strDate, strTime, strDname
'Céation de l'object fonction système pour la copie de fichier
Dim hso : Set hso = CreateObject("FileCtl.Filesystem")
Set fs = CreateObject("FileCtl.FileSystem")
'Détermination du chemin, de la date de l'heure et du nom du nouveau dossier qui sera créer avant la copie de fichier
strTemp = hso.Dir(SrcPath & DefFile, 0)
strDate = Right(DatePart("yyyy", Now),2) & Right("0" & DatePart("m", Now), 2) & Right("0" & DatePart("d", Now), 2)
strTime = Right("0" & DatePart("h", Now), 2) & Right("0" & DatePart("n", Now), 2) & Right("0" & DatePart("s", Now), 2)
strDname = "Bckp_" & NameFolder & "_" & strDate & "_" & strTime
'Création du nouveau dossier dans le chemin de destination
fs.mkDir DstPath + strDname
'Vérification si la variable du chemin source contient + de 1 caractère
'Fonction de copie des fichiers du chemin source au chemin de destination.
copyFile =0
While (Len(strTemp) > 0)
hso.Filecopy SrcPath & strTemp, DstPath & strDname &"\"& strTemp
copyFile = copyFile + 1
strTemp=hso.Dir()
'Si défaut : affichage à l'écran, numéro du défaut et description
If Err.Number <>0 Then
ShowSystemAlarm "Error#" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Wend
Set hso=Nothing