[Débutant]Problème pour déplacer un fichier dans un repertoire nouvellement créé

**TheBAT** · 21/05/2007, 17h20

Bonjour,
Je débute en VBScript et j'ai recupèrer ce code que j'ai un peu modifié :

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

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 :

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