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 : 22
caract. :2
Erreur : permission refusée
Code : 800a0046
Ce pourrait il que mon script soit correcte et que le problème vien d'ailleurs.

Voici le script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 !