WinCE VB Script

[simoon]

Bonjour.
Je suis à la recherche de la liste de toutes les méthodes utilisables pour un script sur IHM comfort.
J'ai trouvé une liste sur Siemens même, mais qui ne semble pas être complète (pas de méthode pour copier un dossier par exemple).

https://cache.industry.siemens.com/dl/f ... _wince.pdf

Et j'ai beau cherché, je ne trouve rien d'autres d'adéquat.
Quelqu'un saurait-il où trouver le liste complète des méthodes du File System Control de windows CE ?

Merci d'avance.

[itasoft]

slts,
cherche sur le Web FileSystemObject c'est la même chose

[simoon]

slts,
cherche sur le Web FileSystemObject c'est la même chose

Bonjour Itasoft. Ce n'est malheureusement pas la même chose. Par exemple, on écrit fso.fileCopy pour winCE alors que pour windows classique on écrit fso.CopyFile.
Sans compter les méthodes qui fonctionnent sur l'un et pas l'autre.
D'où ma requète ici...

[itasoft]

OK
Ceci dit si WinCE est une version allégée il se peut que certaines fonctions ne soient pas disponible, va savoir

[simoon]

OK
Ceci dit si WinCE est une version allégée il se peut que certaines fonctions ne soient pas disponible, va savoir

C'est bien pour çà que ce serait génial que je puisse trouver un résumé de TOUTES les fonctions qui marchent sur WinCE

[djé]

Salut,
Pour avoir déjà cherché c'est ce document qui recense toutes les méthodes de l'objet FileCtrl.
Tu peux essayer de movefile et Mkdir pour faire ce que tu veux.
Regarde ce topic, déjà discuté ici.

[simoon]

Salut,
Pour avoir déjà cherché c'est ce document qui recense toutes les méthodes de l'objet FileCtrl.
Tu peux essayer de movefile et Mkdir pour faire ce que tu veux.
Regarde ce topic, déjà discuté ici.

Merci djé.
J'ai parcouru le lien. J'ai comme l'impression du coup que pas grand monde ne sait trop comment adapter le VBA de base au "spécial" vba du wince de siemens...
Incroyable quand même que siemens n'ai pas publié un document plus complet que cela !!!!
Si pas de réponse d'ici là, va falloir que j'expérimente les fonctions qui m'intéressent aussi.

Sachant que ce qui m'intéresse c'est le transfert de fichiers aux noms arbitraires, d'un SD vers un USB, si je ne peux utiliser la fonction CopyFolder, ca sent pas bon...

[DurandO]

Bonjour,
la solution t'est donnée.
Si tu prends le temps de lire les topics qui t'ont été indiqués, tu trouveras ceci qui doit répondre à problème fonction dir:

Code : Tout sélectionner

Sub Pending_files()

Dim fso, fichier
Dim repertoireServeur, repertoireFichiersEnAttenteServeur, numeroBatch, dateDebutBatch, heureActuelle

' Initialisation des variables
repertoireServeur = lien clé usb
repertoireFichiersEnAttenteServeur = lien carte SD

' On récupère le nom du batch
numeroBatch = SmartTags("BATCH_NAME")
dateDebutBatch = SmartTags("DATE_START_BATCH")
heureActuelle = SmartTags ("HOUR_START_BATCH")

Set fso = CreateObject("FileCtl.FileSystem")


fichier = fso.Dir(repertoireFichiersEnAttenteServeur + "*.csv")


While fichier <> ""
	
	'Recherche du dossier nom batch + date sur le serveur client, s'il n'existe pas on le créé
'If fso.Dir(repertoireServeur & numeroBatch & "_" & dateDebutBatch & heureActuelle) = "" Then
'fso.MkDir repertoireServeur & numeroBatch & "_" & dateDebutBatch & heureActuelle
'End If

	' Copie du fichier vers le serveur
	fso.FileCopy repertoireFichiersEnAttenteServeur & fichier, repertoireServeur & "\" & fichier
	
	' Suppression du fichier du répertoire de base
	fso.kill repertoireFichiersEnAttenteServeur & fichier

	'Passe au fichier suivant
	fichier = fso.dir()
	

Wend

Set fso = Nothing

Dans l'exemple donné, il me semble que cette fonction dir te donnera la liste des fichiers .csv et le stockera dans la variable fichier.
Partant de là, il suffit de faire une boucle qui balaie chaque élément de la liste pour copier ces fichiers!
Voila.

[simoon]

Bonjour,
la solution t'est donnée.
Si tu prends le temps de lire les topics qui t'ont été indiqués, tu trouveras ceci qui doit répondre à problème fonction dir:

Wend

Set fso = Nothing[/code]

Dans l'exemple donné, il me semble que cette fonction dir te donnera la liste des fichiers .csv et le stockera dans la variable fichier.
Partant de là, il suffit de faire une boucle qui balaie chaque élément de la liste pour copier ces fichiers!
Voila.

Bonjour DurandO.
Je pensais avoir bien lu, j'ai donc re-écris le programme en fonction de mes besoins :

Code : Tout sélectionner

Sub Pending_files()

Dim fso, fichierSD
Dim dossierUSB, dossierFichierSD

' Initialisation des variables
dossierUSB = "\Stockage Card USB\"
dossierFichierSD = "\Stockage Card SD\"

Set fso = CreateObject("FileCtl.FileSystem")


fichierSD = fso.Dir(dossierFichierSD + "*.csv")


'Recherche du dossier, s'il n'existe pas on le crée
If fso.Dir(dossierUSB) = "" Then
fso.MkDir dossierUSB
End If



While fichierSD <> ""
    
    ' Copie du fichierSD vers USB
    fso.FileCopy dossierFichierSD & fichierSD, dossierUSB & "\" & fichierSD

    'Passe au fichierSD suivant
    fichierSD = fso.Dir()
    

Wend

Set fso = Nothing

Mais 2 instructions m'échappent :

1 :

Code : Tout sélectionner

fichierSD = fso.Dir(dossierFichierSD + "*.csv")

A moins que je n'ai compris la fonction fso.Dir(), mais ne devrait-elle pas renvoyer la valeur null ("") dans fichierSD ?
Sachant que le nom de mon répertoire SD ne fini pas par par "*csv"...

2 :

Code : Tout sélectionner

fso.FileCopy dossierFichierSD & fichierSD, dossierUSB & "\" & fichierSD

Alors la, je patoge complètement, comprend pas ^^

Je dois avoir un problème de compréhension des caractères "&" et "*"

Merci pour votre aide

[DurandO]

Bonjour,

1 :
A moins que je n'ai compris la fonction fso.Dir(), mais ne devrait-elle pas renvoyer la valeur null ("") dans fichierSD ?
Sachant que le nom de mon répertoire SD ne fini pas par par "*csv"...

Sachant que dossierFichierSD = "\Stockage Card USB\",
fichierSD = fso.Dir(dossierFichierSD + "*.csv")
équivaut à fichierSD = fso.Dir("\Stockage Card USB\*.csv")
C'est à dire lister tous les fichiers ayant pour extension csv du répertoire \Stockage Card USB\

2 :
fso.FileCopy dossierFichierSD & fichierSD, dossierUSB & "\" & fichierSD
Alors la, je patoge complètement, comprend pas ^^

Je dois avoir un problème de compréhension des caractères "&" et "*"

le caractère & réalise une concatenation.
exemple :
variable = "tartem" & "pion"
variable contiendra la chaine : "tartempion"

Le caractère * dans "*.csv" veut dire tout. Ici tout ce qui commence par le texte avant '*" et qui se termine par le texte après l'*.
Exemple :
supposons que le répertoire toto contient les fichiers Tien.txt, voila .txt, Duboudin.txt, trop.txt
DIR /toto/T*.txt
donnera : Tien.txt, trop.txt

La commande dir expliquée ici https://www.malekal.com/comment-utilise ... r-windows/ par exemple.
Voila qui devrait être plus clair.