Discussion :

[qmike]

bonjour

Je voudrai supprimer les fichiers d'un répertoire dont le nom commence par
"pres"

j'ai essayé le code suivant sans résultat

Code :

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

1
2
3
4
5
6
7
For Each Fichier In FSO.GetFolder(strDirCOPIE).Files
    t1=  Fichier.Name
   if left(t1,4) ="pres*" then
 
       fichier.delete
   end if 
    next

merci pour vos réponses

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim strDirCOPIE
strDirCOPIE = "c:\test"
Set FSO = CreateObject("scripting.FileSystemObject")
For Each Fichier In FSO.GetFolder(strDirCOPIE).Files
    t1=  Fichier.Name
   if left(t1,4) ="pres" then
       MsgBox t1
       Fichier.delete
   end if 
Next

[qmike]

bonjour
Un grand merci pour cette réponse
Cela fonctionne désormais
Bonne journée

[hackoofr]

bonjour
Un grand merci pour cette réponse
Cela fonctionne désormais
Bonne journée

il faut donc me payer cash et pas de crédit par cette devise et passer en mode
Bonne Journée !