TIA Portal :Script VB copier archive dans clé usb

  • Jesuisdepassage
    Jesuisdepassage

    le 01/06/2018 à 11:04 Citer ce message

    Bonjour

    J'utilise TIA Portal V14 et un TP1200 Comfort
    J'ai créé une archive qui sera au format .csv avec dedans 2 variables lambda.
    L'acquisition de ces variables sont cyclique de 1 seconde et l'archive accepte jusqu'à 10 enregistrements (donc au bout de 5 secondes l'archive est pleine).
    La méthode d'archive est "Déclencher l'événement", quand l'archive sera pleine on déclenche un événement qui lance un script VB et efface l'archive.
    Le script VB permet de copier l'archive et de la mettre ailleurs tout en la renommant.

    Voici le problème, quand je test le script en mode simulation sur le PC ça marche très bien, par contre une fois dans le TP1200 Comfort ça ne fonctionne plus.
    La seule différence de script entre les 2 est le chemin d'accès.

    Code simulation sur PC
    Dim destination
    Dim oFSO
    destination = "C:\Logs\test\reussite.csv"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile "C:\Logs\Archive0.csv" , destination


    Code Tp1200 Comfort
    Dim destination
    Dim oFSO
    destination = "\Storage Card USB\test\reussite.csv"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile "\Storage Card USB\Archive0.csv" , destination


    Dans le TP1200 Comfort, l'archive est bien créée mais il ne se passe rien au niveau de la copie.
    En fouillant un peu j'ai découvert que la ligne ci dessous avait l'aire de bloquer le programme:
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    Aurait-il une différence de syntaxe entre les 2 ?
    Merci d'avance pour vos réponses.
  • Jesuisdepassage
    Jesuisdepassage

    le 04/06/2018 à 08:48 Citer ce message

    J'ai finalement trouver le problème !
    Il y a bien une différence de syntaxe entre la simulation et le TP1200 Comfort
    Les lignes:
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    oFSO.CopyFile "\Storage Card USB\Archive0.csv" , destination

    deviennent
    Set oFSO = CreateObject("filectl.filesystem")
    oFSO.FileCopy "\Storage Card USB\Archive0.csv" , destination
  • Sulian Marie
    Sulian Marie

    le 20/03/2019 à 14:07 Citer ce message

    Bonjour,

    Je suis à peu prêt dans la même situation que vous, je travail également sur TIA PortalL V14 mais sur un SIMATIC S7-1500.
    Le boulot de mon API et de permettre la supervision et le contrôle d'un système de mesures de courants à distance (pour des expériences qui interdisent l'accès à la salle) mais j'aimerai pouvoir tout de même récupérer les archives de mes mesures après la fermeture de l'IHM.

    Actuellement, j'ai réussis à faire apparaître un graph et un tableau de mes acquisitions dans l'IHM mais l'exportation foire à chaque fois. Pourriez vous m'indiquer comment vous avez fait pour récupérer ces archives ?

    Merci d'avance.

Répondre à ce message

 

7 choses à savoir si Tu débutes en automatisme...

7 choses que tu dois savoir si tu debutes en automatismeCliquez ici pour télécharger le guide PDF

Superv 3