Bonjour,

Me voici devant le mur. J'ai fait un VBS qui :
- Recherche tous les dossiers plus vieux que 30 jours dans un lecteur réseau. !Sans parcourir leurs arborescences !
- Coupe ces dossiers dans un autre lecteur réseau.

Malheureusement lors de son exécution le programme soulève l'erreur suivante : L'erreur 800A0046 - Permission denied

J'essaie donc de trouver désespérément un moyen de passer au travers ce problème. Auriez-vous une idée ?


Voici le-dit
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
strDate = Now 'date du jour   
strDelMax = 1 'Age des dossiers
strEmplacementSauvegardes = "\\SERVEUR-DEL\TB$\TIM\"  'Dossiers contenant les sauvegardes \\SERVEUR-DEL\TB$\TIM\
strEmplacementCopies = "\\SERVEUR-DEL\Informatique$\TIM\" 'Dossier contenant les copie des sauvegarde
intCount = 0
 
'Prend la date sous la forme jj/mm/aaaa et la transforme en jj_mm_aaaa 
'pour pouvoir en faire un nom de fichier
myDate = Left(Date,2) & "_" & Mid(Date,4,2) & "_" & Right(Date, 4)
 
strDirectory = strEmplacementCopies & myDate
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
For each myFolder in objFSO.GetFolder(strEmplacementSauvegardes).subfolders
	retDate = datediff("s",myFolder.datelastmodified,strDate) 
	If retDate > strDelMax then
		If not(objFSO.FolderExists(strDirectory)) Then
			'Créer le dossier daté
			objFSO.CreateFolder(strDirectory)
		End if
		'Nomme le dossier final
		strFinalFolderPath = strDirectory & "\"
		objFSO.MoveFolder myFolder, strFinalFolderPath 
		intCount = intCount + 1
	End if 
next
WScript.Echo("complete: " & intCount & " file(s) moved")
Merci.