Récupérer la date de création d'un sous répertoire d'un dossier

Version imprimable

10/09/2014, 09h55
nikkss

Récupérer la date de création d'un sous répertoire d'un dossier

Bonjour à tous,

Je dois copier le contenu de répertoires vers un dossier que je crée. Ce dossier doit être nommé avec la date de création d'un sous dossier contenu dans l'arborescence que je copie.

exemple:
l'arborescence que je copie: C:\toto\tata\titi\titi1\titi2...
vers le dossier qui doit être nommé avec la date de création de "titi1". (Pour information la date de création des sous dossiers "titi1" titi2"... est la même, et le nom de ces sous dossiers n'est jamais le même, donc je ne peux pas mettre leur path en dur).

Donc la question est: comment je récupère la date de création de "titi1" ou "titi2" ou "titi3" ... ?

Merci pour votre aide. ;)

Salut

Il y a peut être plus simple ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
   Dim fso, Fldr1, Fldr2, f1, DateCreation, Destination
   Dim DossierRacineSource, DossierDestinationAcreer
   DossierRacineSource = "C:\temp\"
   DossierDestinationAcreer = "C:\Sauvegarde"
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Fldr1 = fso.GetFolder(DossierRacineSource)
   Set Fldr2 = Fldr1.SubFolders
   Set Fldr1 = Nothing
   Set fso = Nothing
   For Each f1 In Fldr2
        DateCreation = f1.DateCreated ' lecture date du premier sous dossier du dossier à source
        Exit For
    Next
    Set Fldr2 = Nothing
    Destination = CStr(DateCreation) '10/09/2014 12:19:22
    Destination = Replace(Destination, "/", "_") '10_09_2014 12:19:22
    Destination = Replace(Destination, ":", "_") '10_09_2014 12_19_22
    DossierDestinationAcreer = DossierDestinationAcreer & " du " & Destination '"C:\Sauvegarde du 10_09_2014 12_19_22
    MsgBox DossierDestinationAcreer

11/09/2014, 14h07
nikkss

Merci bcp pour ton aide. Cela correspond à mon besoin.
Pb résolu!