Bonjour à tous, sur un IHM tp900 comfort, sur lequel j'ai une carte SD et une clé usb, j'aimerai par script, effectuer une copie de tous les fichiers situés d'un dossier de la carte SD vers la clé usb.
J'ai essayé le script ci-dessous, mais sans succès.
Merci pour votre aide pour comprendre d'où vient mon erreur.
Sub exportHistoriqueSurUsb()
Dim fso, filename, SourcePath, DestinationPath, check
DestinationPath = "\Storage Card USB\"
SourcePath = "\Storage Card SD\data\"
'' Create the File system object to the file system of the panel
Set fso = CreateObject ("FileCtl.file")
' Search for files in the destination directory and delete them.
filename = fso.Dir(DestinationPath & "*",0)
Do Until filename = ""
fso.kill DestinationPath & filename
filename = fso.Dir
Loop
'Search For files In the Source directory And copy them To the Destination directory
filename = fso.Dir(SourcePath & "*",0)
Do Until filename = ""
fso.filecopy SourcePath & filename, DestinationPath & filename
filename = fso.Dir
Loop
' Clean object fso
Set fso = Nothing
[WinCC Flexible] Script IHM copie fichier SD vers USB
- LaurentCK
- Code son premier grafcet
- Messages : 47
- Enregistré le : 24 oct. 2020, 08:41
- Localisation : Pizay
Re: [WinCC Flexible] Script IHM copie fichier SD vers USB
Vos scripts sont issus d'une même source... ça peut peut-être donner des idées :
https://support.industry.siemens.com/fo ... r_pto=wapp
https://support.industry.siemens.com/fo ... r_pto=wapp
Re: [WinCC Flexible] Script IHM copie fichier SD vers USB
Bonjour LaurenCK, merci pour ta réponse.LaurentCK a écrit : ↑11 avr. 2023, 00:23 Vos scripts sont issus d'une même source... ça peut peut-être donner des idées :
https://support.industry.siemens.com/fo ... r_pto=wapp
A l'aide du lien que tu m'as envoyé, je pense avoir trouvé le bon code, reste plus qu'à tester cela dès que j'aurai à nouveau l'ihm dans les mains.
Merci
Dim sourcePath, destinationPath
destinationPath = "\Storage Card USB\"
sourcePath = "\Storage Card SD\data\*.*"
Set fso = CreateObject ("FileCtl.filesystem")
if (fso.Dir(sourcePath)) = "" Then
fso.MkDir(sourcePath)
End If
fso.copyfile SourcePath, destinationPath, [True]
Set fso = Nothing