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 !
