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
Merci de votre aide
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
Partager