Script permettant de supprimer des fichiers
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 :
Citation:
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:
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 !
