Recupéré nom du dernier dossier Créer

salut !
j'ai un Dossier...dans lequel se trouve plusieur sous Dossier...

j'aimerais copier la totalité du dernier dossier créer

j'ai consulter le FAQ
copier un dossier :

Code:

---

1 2 3

Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFolder "c:\tmp","c:\tmp2",True

---

Date de création du dossier :
"DateCreated : Date de création du dossier"

Il me semble avoir les élément dont j'ai besoin, mais je ne sais pas comment m'y prendre....
une aide serait la bienvenur

En gros tu veux faire quoi ...
- rechercher le dossier le plus récent (parcours de tous (?) les dossiers.. en mémorisant celui dont la date de création est la plus grande...)
- copie du dossier trouvé..


et tu en est ou ..?

Oui, je voudrait trouvé le dossier le plus recent parmis les tous, donc je pense qu'il faut scanné tout les dossier

et une fois que le programme reconnais le dossier le plus recent, il le copie dans un autre

Citation:

---

Envoyé par bbil

...
et tu en est ou ..?

---

Commence par faire le scan...

nul par a vrai dire...:oops:
j'arrive a copier un dossier voulu (en connaissant son chemin d'acces)

il me manque plus qu'a trouver le dossier le plus recent
comme ça je pourrait connaitre son chemin d'acces

Je remplacerai ensuite, "c:\tmp" , par le chemin d'acces du dossier trouvé :D

pour la recherche du dossier cela devrai t'aider :

Comment lister les sous-répertoires d'un dossier ?

;)

ton répertoire il peu être où ? n'importe quelle partition..? n'importe quel répertoire..? ....

?

non, le repertoire principal de change jamais! il est tjs au meme endroit !

Citation:

---

signal_si_nouveau(conv_date("28/02/2007"));signal_si_mise_a_jour(conv_date(""));

---

qu'est ce que tu as voulu dire....:roll: ??

Citation:

---

Envoyé par kevain_09

...qu'est ce que tu as voulu dire....:roll: ??

---

c'est rien juste un probléme de copier coller.. depuis la :faq:

cela ne m'aide pas bcp...
comment faire pour trouver le dossier créer en dernier??
j'ai beau savoir la date de chaque dossier , cela ne m'aide pas bcp, faudrait pouvoir en deduite la date la plus "recente", celle qui se rapproche le plus de la date du PC...Comment faire?

Citation:

---

Envoyé par bbil

- rechercher le dossier le plus récent (parcours de tous (?) les dossiers.. en mémorisant celui dont la date de création est la plus grande...)
....

---

Citation:

---

en mémorisant celui dont la date de création est la plus grande...)

---

...justement comment procédé?
je ne sais pas comment faire :(

voila se que j'ai tenté....ss résultat

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFld Dim recent Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Documents and Settings\Administrateur\Mes documents" If oFSO.FolderExists(stRep) Then For each oFld in oFSO.GetFolder(stRep).SubFolders If oFld.DateCreated> oFld.DateCreated then recent=oFld.Name End if Next Wscript.Echo recent End If

---

j'ai une msgbox avec rien dedans...rien dans "recent" aparament
Le oFld.DateCreated devrai prendre la valeur du dossier scanné juste avant, hors il prend le dossier scanné au moment meme.
Les 2 oFld.DateCreated ont donc la meme valeur et le programme ne rentre jamais dans la fonction If

tu t'est relu ...?

que crois tu que cette équation puisse être vrai:

Code:

---

If oFld.DateCreated> oFld.DateCreated

---

tu compare la date de création à elle même :aie:



il te faut par exemple utiliser une variable pour mémoriser la date la plus récente :

Code:

---

1 2 3 4 5 6

... Dim recent Dim mDate mDate = 0   Se...

---

puis lors du test :

Code:

---

1 2 3 4 5 6 7 8

... If oFld.DateCreated > mDate Then recent = oFld.Name mDate = oFld.DateCreated End If Next If mDate > 0 Then Wscript.Echo recent End If...

---

;)

Merci bbil ! dsl mais je débute sous vbs :s. Enfin bon mission completed!

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

Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFld Dim recent Dim mDate     mDate = 0   Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Documents and Settings\Administrateur\Mes documents" If oFSO.FolderExists(stRep) Then   For each oFld in oFSO.GetFolder(stRep).SubFolders DDate=oFld.DateCreated If oFld.DateCreated> mDate then   recent=oFld.Name mDate = oFld.DateCreated End if   Next   If mDate > 0 Then Wscript.Echo recent End If   End If

---

jsute une chose ton

Code:

---

DDate=oFld.DateCreated

---

ne sert plus à rien puisque tu utilises toujours directement

Code:

---

oFld.DateCreated

---