Bonjour,
Je débute en VBScript et j'ai recupèrer ce code que j'ai un peu modifié :
Je souhaite :
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 on error resume next Dim folder Dim Subfolder Dim path Dim FSO Dim B Dim nDossier Set FSO = CreateObject("Scripting.FileSystemObject") Set nDossier = FSO.CreateFolder("c:\test\destination\" & day(now) & "-" & month(now) & "-" & year (now)) path = "c:\test\source\" recursive path function recursive(chemin) set folder = FSO.GetFolder(chemin) set Subfolder = folder.SubFolders for each A in Subfolder Set fic = A.Files fichier fic recursive A next end function function fichier(fic) For Each objFile in fic Set f = fso.GetFile(objfile) 'DateLastAccessed If DateDiff("D", objfile.DateLastModified, now) > 30 Then f.Move "c:\test\destination\" 'FSO.DeleteFile f, force = yes end if next end function Set fic = folder.Files fichier fic set folder = FSO.GetFolder(path) For Each B in folder.subfolders If B.size = 0 Then FSO.DeleteFolder B, force = yes End If Next
> créer un dossier à la date du jour
> déplacer dans ce dossier tous les fichiers présents dans c:\test\source non modifiés de plus de 30 jours
> supprimer les dossier vide dans c:\test\source
Le problème est que je n'arrive pas à modifier la destination des fichiers déplacer, au mieux je les deplace dans c:\test\destination mais jamais dans le sous repertoire à la date du jour.
ligne du déplacement :
Comment faire ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part f.Move "c:\test\destination\"
Merci de votre aide, bonne fin de journée.
Partager