Bonjour à tous  
 
J'aurai besoin d'aide, étant novice en programmation vbs.  
Je cherche a faire une function qui efface des fichiers dans des folders et sous folders, avec en parametres le répertoire initial et le nom de fichier, ou une partie du nom de fichier, ou un caractere générique...  
 
ex : Mydelfile ("C:\temp","Test.t*" ) ou  
Mydelfile ("C:\temp","Test.*" )  
ou  
Mydelfile ("C:\temp","Te*.t*" )  
ou  
Mydelfile ("C:\temp","*.*" )  
ou  
Mydelfile ("C:\temp","." )  
Vous voyez ou je veux en venir.  
 
J'ai bien commencer mais c'est pas ca !  
 
 
Const DeleteReadOnly = True  
Const CopyOverwrite = True  
Dim oShell, oFso, sAllUsers, sSystemDrive, bStatus  
Dim sEntry, slogFile, sfolder,ofolder, cfiles,ofile, csubfolders,osub  
 
 
Function DeleteFiles(sSearch, sFolder, bRecurse)  
Set oFolder = oFso.GetFolder(sFolder)  
Set cFiles = oFolder.Files  
If sSearch = "*.*" or sSearch="." then  
oFSO.DeleteFile(sFolder&"\*.*" ), DeleteReadOnly  
Else  
 
'C'est à partir de la que je flanche !!!  
'Comment faire avec une partie du nom de fichier en caratere générique ?  
 
If Ubound(gaValue)>0 Then  
For i = LBound(gaValue) to UBound(gaValue)-1  
log "Fichier trouvé dans le répertoire: " & gaValue(i)  
Next  
 
Next  
End If  
 
Set cSubFolders = oFolder.SubFolders  
If bRecurse Then  
For Each oSub in cSubFolders  
DeleteFiles sSearch, oSub.Path, bRecurse  
Next  
End If  
End Function  
 
 
MErci de votre aide eventuelle !

 
 
moi aussi ca m interresse

Bonjour,
En testant les positions des caractères ?
 
If Mid(LeFichier, 4, 3) = "te" then
.....

plus simple
 
del de W2K ou XP