WhatsApp · +221 77 553 73 46
  1. Accueil
  2. Forum automatisme
  3. Forum Automatisme industriel
  4. TIA Portal :Script VB copier archive dans clé usb

TIA Portal :Script VB copier archive dans clé usb

  • Jesuisdepassage
    • Jesuisdepassage
    le 01/06/2018 à 11:04
    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
    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
    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