Discussion :

[topino]

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 !

[RadPAT]

Salut,

tout d'abord ton script fonctionne. Le problème est que lorsque tu arrives sur un dossier ou tu n'as pas les droits le pgm te renvoie une erreur. Je suis admin de mon poste pourtant je ne peux pas accéder à C:\RRBackups, le répertoire de l'outil de recovery and backup d'IBM livré en standard sur les machines.
Pour palier à ca, tu ajoutes dans la fonction find un :

Code :

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

On Error Resume next

A+