Discussion :

[Barbu15-95]

Quelle solution pour remplacer la ligne:
Name "d:\1500_CU*.rep" As "d:\1500_CU*.txt"
qui ne fonctionne pas à cause du caractère générique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command4_Click()
On Error Resume Next
Dim nb_fichiers
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = "c:\YP30\1500_CU*.rep"
destFile = "d:\"
fso.CopyFile sourceFile, destFile, True
Name "d:\1500_CU*.rep" As "d:\1500_CU*.txt"
Set fso = Nothing
End Sub

Merci de votre aide

[sovo]

et pourquoi pas Rename a la place de Name?? Je croyais que tu voulais renome ton fichier (moyen le plus simple pour changer son extension).

[jmfmarques]

Mais non ....

Name arguments cannot include multiple-character (*) and single-character (?) wildcards

Il te faut faire une boucle et traiter fichier par fichier !