actuellement je recherche et traite des fichiers en passant par la
collection Files de l objet:
Set Tmp = MyFSO.getfolder(PathFicEDI)
Set FC = Tmp.Files
For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me
demandais si on pouvait definir un critere
genre que les "*.csv " dans la collection ???
je n'ai peut-etre pas su chercher sur les bon mots-clés car j'ai rien trouvé
dans le vbscript5.6chm...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Claude BELLAMY
Dans le message news: , DJ s'est ainsi exprimé:
Bonjour,
actuellement je recherche et traite des fichiers en passant par la collection Files de l objet: Set Tmp = MyFSO.getfolder(PathFicEDI) Set FC = Tmp.Files For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me demandais si on pouvait definir un critere genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext en d'autres langages) La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi : For Each Fic In FC ext=right(Fic.Name,4) if lcase(ext)=".csv" then .... end if next ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Dans le message news:OKduvsYcFHA.464@TK2MSFTNGP15.phx.gbl ,
DJ <Yenapas@laposte.net> s'est ainsi exprimé:
Bonjour,
actuellement je recherche et traite des fichiers en passant par la
collection Files de l objet:
Set Tmp = MyFSO.getfolder(PathFicEDI)
Set FC = Tmp.Files
For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me
demandais si on pouvait definir un critere
genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext en
d'autres langages)
La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi :
For Each Fic In FC
ext=right(Fic.Name,4)
if lcase(ext)=".csv" then
....
end if
next
...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
actuellement je recherche et traite des fichiers en passant par la collection Files de l objet: Set Tmp = MyFSO.getfolder(PathFicEDI) Set FC = Tmp.Files For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me demandais si on pouvait definir un critere genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext en d'autres langages) La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi : For Each Fic In FC ext=right(Fic.Name,4) if lcase(ext)=".csv" then .... end if next ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
DJ
Jean-Claude BELLAMY wrote:
Dans le message news: , DJ s'est ainsi exprimé:
Bonjour,
actuellement je recherche et traite des fichiers en passant par la collection Files de l objet: Set Tmp = MyFSO.getfolder(PathFicEDI) Set FC = Tmp.Files For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me demandais si on pouvait definir un critere genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext en d'autres langages) La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi : For Each Fic In FC ext=right(Fic.Name,4) if lcase(ext)=".csv" then .... end if next ... Bonjour Maitre JCB !!!
Ah ben oui c'est dans le VB j'avais du faire ca.....et comme j'en fais pas tous les jours, ma memoire vieillisante m'a trahi !
C'est bien ce que je fais, je parcours la liste en testant tous les noms.
J'en profites au passage (j'aurais du le faire depuis longtemps) pour te remercier pour ton site ou j'ai puisé plus souvent qu'a mon tour :-))) keskondit ??? on dit : Merci Jean-Claude ! DJ
Jean-Claude BELLAMY wrote:
Dans le message news:OKduvsYcFHA.464@TK2MSFTNGP15.phx.gbl ,
DJ <Yenapas@laposte.net> s'est ainsi exprimé:
Bonjour,
actuellement je recherche et traite des fichiers en passant par la
collection Files de l objet:
Set Tmp = MyFSO.getfolder(PathFicEDI)
Set FC = Tmp.Files
For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me
demandais si on pouvait definir un critere
genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext
en d'autres langages)
La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi :
For Each Fic In FC
ext=right(Fic.Name,4)
if lcase(ext)=".csv" then
....
end if
next
...
Bonjour Maitre JCB !!!
Ah ben oui c'est dans le VB j'avais du faire ca.....et comme j'en fais pas
tous les jours, ma memoire vieillisante m'a trahi !
C'est bien ce que je fais, je parcours la liste en testant tous les noms.
J'en profites au passage (j'aurais du le faire depuis longtemps) pour te
remercier pour ton site ou j'ai puisé plus souvent qu'a mon tour :-)))
keskondit ???
on dit : Merci Jean-Claude !
DJ
actuellement je recherche et traite des fichiers en passant par la collection Files de l objet: Set Tmp = MyFSO.getfolder(PathFicEDI) Set FC = Tmp.Files For Each Fic In FC
Comme il se trouve que les fichiers cherchés sont tous des .csv je me demandais si on pouvait definir un critere genre que les "*.csv " dans la collection ???
Non, pas en VBS (à la différence des fonctions FindFirst et FindNext en d'autres langages) La collection "Files" d'un objet Folder est globale, sans filtre.
C'est dans la boucle "For each" qu'il faut filtrer, p;ex. ainsi : For Each Fic In FC ext=right(Fic.Name,4) if lcase(ext)=".csv" then .... end if next ... Bonjour Maitre JCB !!!
Ah ben oui c'est dans le VB j'avais du faire ca.....et comme j'en fais pas tous les jours, ma memoire vieillisante m'a trahi !
C'est bien ce que je fais, je parcours la liste en testant tous les noms.
J'en profites au passage (j'aurais du le faire depuis longtemps) pour te remercier pour ton site ou j'ai puisé plus souvent qu'a mon tour :-))) keskondit ??? on dit : Merci Jean-Claude ! DJ
