[Débutant]Problème pour déplacer un fichier dans un repertoire nouvellement créé
Bonjour,
Je débute en VBScript et j'ai recupèrer ce code que j'ai un peu modifié :
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
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 |
Je souhaite :
> 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 :
Code:
f.Move "c:\test\destination\"
Comment faire ?
Merci de votre aide, bonne fin de journée.
