WINCC Flexible 2008 - Copie d'archive sur Serveur FTP.

[kiwi13nrv]

Bonjour,

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

[Corentinxs]

salut,
je ne sais pas si il y a possibilité de créer des scripts sur ta version,
Mais moi je le fais sur tout mes écrans de gamme TP sous TiaPortal avec un script qui permet d'archiver et horodater du type :
[Nom]_[DateIHM]_[HeureIHM]

Voici le code, pense à bien activer un dossier partagé dans ton PC qui contient le serveur FileZilla, et mettre le dossier partager en accès dans ton serveur FileZilla
Il faudra aussi mettre dans NetWork ID sur ton écran, l'identifiant et le mot de passe de la sessions du PC distant, pour que l'iHM puisse y acceder.
Ensuite tu peux activer le script avec planificateur de tache
Dans un premier temps fait l'essaye avec un bouton qui active ton script.

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