3 réponses
Salut,
Oui c'est possible, reste à savoir ce que tu entends par moyens..
Comme ça je ne peux pas te dire, mais va sur ces sites, tu y trouvera ton bonheur
A++
http://www.mvps.org/vbnet/index.html?code/subclass/shellnotifybasic.htm
http://www.vbfrance.com/
Beldyn
Oui c'est possible, reste à savoir ce que tu entends par moyens..
Comme ça je ne peux pas te dire, mais va sur ces sites, tu y trouvera ton bonheur
A++
http://www.mvps.org/vbnet/index.html?code/subclass/shellnotifybasic.htm
http://www.vbfrance.com/
Beldyn
Re,
Pour moi, il faut que tu passes par les API Windows, donc ni composant ni référence, mais du code.
Voici le lien direct vers un exemple de cette fonctionnalité.
Bon développement, A+
http://www.mvps.org/vbnet/index.html?code/fileapi/filedatetime.htm
Beldyn
Pour moi, il faut que tu passes par les API Windows, donc ni composant ni référence, mais du code.
Voici le lien direct vers un exemple de cette fonctionnalité.
Bon développement, A+
http://www.mvps.org/vbnet/index.html?code/fileapi/filedatetime.htm
Beldyn
Salut,
Voici un bout de code qui marche en utilisant la référence microsoft scripting Runtime (donne le dernier sous-répertoire mais fonctionne aussi pour un fichier):
Sub der_rep_dans_rep(ByVal chemin As String, ByRef der_chemin As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim date_creation As Variant
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(chemin)
'chemin par défaut si pas de sous-répertoire en dessous
der_chemin = chemin
For Each SubFolder In SourceFolder.SubFolders
If SubFolder.DateCreated > date_creation Then
der_chemin = SubFolder.Path
date_creation = SubFolder.DateCreated
End If
Next SubFolder
End Sub
Voici un bout de code qui marche en utilisant la référence microsoft scripting Runtime (donne le dernier sous-répertoire mais fonctionne aussi pour un fichier):
Sub der_rep_dans_rep(ByVal chemin As String, ByRef der_chemin As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim date_creation As Variant
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(chemin)
'chemin par défaut si pas de sous-répertoire en dessous
der_chemin = chemin
For Each SubFolder In SourceFolder.SubFolders
If SubFolder.DateCreated > date_creation Then
der_chemin = SubFolder.Path
date_creation = SubFolder.DateCreated
End If
Next SubFolder
End Sub
Je précise les moyens :
Faut-il utiliser un composant ou une référence, ou faut il faire un bout de code pour récupérer la date du fichier ?