Bonjour à tous ,  
 
Je me présente , Florent alias topino.... Etant vraiment débutant dans le language VBS , je requiere votre assistance pour m'éclairer sur ce problème :
 
J'ai cherché un script permettant de chercher dans le disque tous les noms de fichiers que l'on a choisit.Mais une erreur survient lorsque je lui indique le nom d'un fichier.Il est écrit :  
 
ligne :  
Code :
22caract. :  
Code :
2Erreur :  
Code :
permission refuséeCode :  
Code :
800a0046
 
Ce pourrait il que mon script soit correcte et que le problème vien d'ailleurs.
 
Voici le script :
Option Explicit
 
Dim path_start
Dim Myfso, result
Set Myfso = CreateObject("Scripting.FileSystemObject" )
 
path_start = "c:\"
 
result = Find(path_start, InputBox("Entrez le nom du fichier à rechercher : " ))
 
MsgBox result
 
Function Find (strPath, strFileName)
Dim MyDir, MyFile, MySubDir
Dim strResult
 
If strFileName = Empty Then Exit Function
strFileName = Ucase(strFileName)
 
Set MyDir = Myfso.GetFolder(strPath)
 
For Each MyFile In MyDir.Files
If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
Next
 
For Each MySubDir In MyDir.SubFolders
strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
Next
 
Find = strResult
End Function
 
 
Merci d'avance !

Juste pour savoir , deja si il vous semble bon...