Problème avec le FSO...

Bonjour,

Voila, je voudrais copier plusieurs fichiers ayant le même nom mais pas la même extension (les différents fichiers composants une couche MapInfo).

J'utilise pour cela le FSO mais si je fais:

cheminini="c:\test.*"
cheminfin="d:\nouveautest.*"
fs.copyfile cheminini,cheminfin

J'ai le message d'erreur suivant:
Argument ou appel de procédure incorrect.

Il me semble pourtant que le FSO pouvait bouger plusieurs fichiers simultanement, me suis-je trompé?

Merci par avance!

tu dois travailler avec la collection de fichiers :

Dim fs, f, f1, fc, s
Dim folderspec As String

folderspec = "c:\"
cheminfin = "d:\"

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files

For Each f1 In fc
If Left(f1.Name, Len(f1.Name) - 4) = "test" Then
FileCopy folderspec & f1.Name, cheminfin & f1.Name
End If
Next


--------
-----------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> Voila, je voudrais copier plusieurs fichiers ayant le même nom mais pas la même extension (les différents fichiers composants une couche MapInfo).
>
> J'utilise pour cela le FSO mais si je fais:
>
> cheminini="c:\test.*"
> cheminfin="d:\nouveautest.*"
> fs.copyfile cheminini,cheminfin
>
> J'ai le message d'erreur suivant:
> Argument ou appel de procédure incorrect.
>
> Il me semble pourtant que le FSO pouvait bouger plusieurs fichiers simultanement, me suis-je trompé?
>
> Merci par avance!

J'ai utilisé le principe que vous m'avez donné pour mon code, merci beaucoup pour le coup de main!

Il est tout de même étonnant qu'il n'existe aucune fonction fso permettant à la fois de déplacer et de renommer un fichier, c'est bien dommage...


-------------------------------
Réponse au message :
-------------------------------

>
> tu dois travailler avec la collection de fichiers :
>
> Dim fs, f, f1, fc, s
> Dim folderspec As String
>
> folderspec = "c:\"
> cheminfin = "d:\"
>
> Set fs = CreateObject("Scripting.FileSystemObject")
> Set f = fs.GetFolder(folderspec)
> Set fc = f.Files
>
> For Each f1 In fc
> If Left(f1.Name, Len(f1.Name) - 4) = "test" Then
> FileCopy folderspec & f1.Name, cheminfin & f1.Name
> End If
> Next
>
>
> --------
> -----------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > Voila, je voudrais copier plusieurs fichiers ayant le même nom mais pas la même extension (les différents fichiers composants une couche MapInfo).
> >
> > J'utilise pour cela le FSO mais si je fais:
> >
> > cheminini="c:\test.*"
> > cheminfin="d:\nouveautest.*"
> > fs.copyfile cheminini,cheminfin
> >
> > J'ai le message d'erreur suivant:
> > Argument ou appel de procédure incorrect.
> >
> > Il me semble pourtant que le FSO pouvait bouger plusieurs fichiers simultanement, me suis-je trompé?
> >
> > Merci par avance!
>