Discussion :

[kevain_09]

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 :

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

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

[SfJ5Rpw8]

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 ..?

[kevain_09]

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

[SfJ5Rpw8]

...
et tu en est ou ..?

Commence par faire le scan...

[kevain_09]

nul par a vrai dire...
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é

[SfJ5Rpw8]

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..? ....

?

[kevain_09]

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

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

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

[SfJ5Rpw8]

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

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

[kevain_09]

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?

[SfJ5Rpw8]

- 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...)
....

[kevain_09]

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

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

[kevain_09]

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

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
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

[SfJ5Rpw8]

tu t'est relu ...?

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

Code :

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

If oFld.DateCreated> oFld.DateCreated

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



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

Code :

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

1
2
3
4
5
6
...
Dim recent
Dim mDate
mDate = 0
 
Se...

puis lors du test :

Code :

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

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...

[kevain_09]

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

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
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

[ced600]

jsute une chose ton

Code :

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

DDate=oFld.DateCreated

ne sert plus à rien puisque tu utilises toujours directement

Code :

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

oFld.DateCreated