Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Récupérer dossiers par date

Récupérer dossiers par date

15 réponses
Avatar
Pascal
Bonjour,

Je souhaiterai récupérer dans 1 listview tous les dossiers de la semaine ou
du mois
ou mieux entre 2 dates en partir du calendrier windows
Ne sait si cela est faisable en VB6, si oui auriez-vous une petite piste à
me soumettre?

Je vous en remercie d'avance

Pascal
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pascal
Merci Jacques
Gloups! le moindre écart de langage coûte cher de nos jours!
ceci dit en passant, je constate que toi tu n'as pas fait d'amalgame entre
dossier et répertoire (tout comme les dizaines voir centaines de personnes
qui postent sur VBfrance(entre autres))
et je sais que tu es un puriste!

Sorry pour J-M je suis passé à côté de ton exemple, je m'en excuse et t'en
remercie après coup.

Merci aussi a Driss que je rassure, je ne pense pas t'avoir considéré comme
un "Niais" et je suis bien plus respectueux au quotidien, des gens et des
choses, que tu ne le penses.

Bien à vous tous

Pascal



"Jacques93" a écrit dans le message de news:
%
Bonjour Pascal,
Pascal a écrit :
Bonjour,

Je souhaiterai récupérer dans 1 listview tous les dossiers de la semaine
ou du mois
ou mieux entre 2 dates en partir du calendrier windows
Ne sait si cela est faisable en VB6, si oui auriez-vous une petite piste
à me soumettre?



Dans l'exemple indiqué par Jean-Marc, tu as accès à la structure :

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

qui contient la date de création : ftCreationTime

Tu trouveras ici, dans la procédure GetFolderCreatedDate, la méthode pour
interpréter ce format de date :

http://vbnet.mvps.org/index.html?code/fileapi/oldestfolder.htm

Reste à faire un mix des deux exemples pour obtenir ce que tu désires.


Si les API te semblent un peu lourde, tu peux utiliser fso
(FileSystemObject) :

Set fso = CreateObject("Scripting.FileSystemObject")
With Me.ListView1
.ListItems.Clear
For i = 0 To Me.Dir1.ListCount - 1
s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
.ListItems.Add , , s
Set fld = fso.GetFolder(Me.Dir1.List(i))
Debug.Print fld.Name & " : " & fld.DateCreated
Next i
End With
Set fso = Nothing

plus de détails ici :

http://www.microsoft.com/france/msdn/scripting/fso.mspx


Il y a également la fonction FileDateTime de VB6, mais qui renvoie soit la
date de création, soit la date de dernière modification.

--
Cordialement,

Jacques.


Avatar
Jean-marc
"Pascal" a écrit dans le message de news:

Merci Jacques
Gloups! le moindre écart de langage coûte cher de nos jours!
ceci dit en passant, je constate que toi tu n'as pas fait d'amalgame entre
dossier et répertoire (tout comme les dizaines voir centaines de personnes
qui postent sur VBfrance(entre autres))
et je sais que tu es un puriste!

Sorry pour J-M je suis passé à côté de ton exemple, je m'en excuse et t'en
remercie après coup.

Merci aussi a Driss que je rassure, je ne pense pas t'avoir considéré
comme un "Niais" et je suis bien plus respectueux au quotidien, des gens
et des choses, que tu ne le penses.

Bien à vous tous



Hello,

Aucun problème!

Je te souhaite moi aussi la bienvenue sur ce groupe :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
Guy Lafrenière
Bonjour Driss.

Je suis étonné de ta question, sauf si tu travailles avec une version non
francophone de Windows.

En anglais, le terme utilisé est "folder".

À l'époque du DOS, "folder" était traduit en français par "répertoire".

Depuis Windows (Win 3.x ou Win 9.x?), le terme "folder" est traduit dans la
version française de Windows par "dossier". Je me demande si ce ne serait
pas dans le but d'imiter le MAC qui utilisait déjà le terme "dossier" pour
désigner un "folder".

Guy L.

===================================================
"Driss HANIB" a écrit dans le message de
news:%
Bonjour,

qu'appelles-tu 'dossier' ?

Driss
"Pascal" a écrit dans le message de
news:
> Bonjour,
>
> Je souhaiterai récupérer dans 1 listview tous les dossiers de la semaine
ou
> du mois
> ou mieux entre 2 dates en partir du calendrier windows
> Ne sait si cela est faisable en VB6, si oui auriez-vous une petite piste


à
> me soumettre?
>
> Je vous en remercie d'avance
>
> Pascal
>




Avatar
Driss HANIB
Bonjour Guy,

Non je travailles bien avec une version Française de 'Fenetres' ;o))
Le seul 'truc' que je dis est justement qu'en français le mot dossier a
plusieurs significations et pas seulement en matière de disque durs, mais
aussi dans des applications profressionnelles : dossiers clients, dossiers
médicaux.

il aurait suffit que Pascal soit un peu plus explicite en mentionnant au
moins une fois disque dur pour ce recaler.
Pour ma part mon peu de programmation ne se borne pas pas qu'à gérer des
dossiers et fichiers sur un disque dur..
C'est tout.

C'est comme on voit de temps en temps des demandes du style.
'Pourquoi j'ai une erreur ?'
Sans plus d'explication : pas de bout de code, pas de circonstance..
Et après celui qui pose cette question 's'étonne' (non pas toi ;o)) de ne
pas avoir de réponse ou justement qu'on lui demande des précisions. et
c'est souvent le même qui va critiquer les réponses qu'on va lui donner.

Alors tu vois Guy, et ce n'est pas à toi, qui fréquentes ce NG et qui répond
souvent aux demandes, lorsqu'on veut une réponse précise à une question on
s'arrange pour poser une question précise.
Il me semblait que l'informatique demandait rigueur et précision. a moins
que ce soit moi qui soit un peu jeune dans la programmation; il y a peut
être des mots à sens unique. je ne suis pas anglophone mais il me semble
aussi que Folder n'est pas issu de l'informatique et qu'il a d'autres
utilisations ??

Amicalement,

Driss

"Guy Lafrenière" a écrit dans le message de
news:
Bonjour Driss.

Je suis étonné de ta question, sauf si tu travailles avec une version non
francophone de Windows.

En anglais, le terme utilisé est "folder".

À l'époque du DOS, "folder" était traduit en français par "répertoire".

Depuis Windows (Win 3.x ou Win 9.x?), le terme "folder" est traduit dans


la
version française de Windows par "dossier". Je me demande si ce ne serait
pas dans le but d'imiter le MAC qui utilisait déjà le terme "dossier" pour
désigner un "folder".

Guy L.

=================================================== >
"Driss HANIB" a écrit dans le message de
news:%
> Bonjour,
>
> qu'appelles-tu 'dossier' ?
>
> Driss
> "Pascal" a écrit dans le message de
> news:
> > Bonjour,
> >
> > Je souhaiterai récupérer dans 1 listview tous les dossiers de la


semaine
> ou
> > du mois
> > ou mieux entre 2 dates en partir du calendrier windows
> > Ne sait si cela est faisable en VB6, si oui auriez-vous une petite


piste
à
> > me soumettre?
> >
> > Je vous en remercie d'avance
> >
> > Pascal
> >
>
>




Avatar
Driss HANIB
no problème

a bientot sur cette liste ;o)

Driss
"Pascal" a écrit dans le message de
news:
Merci Jacques
Gloups! le moindre écart de langage coûte cher de nos jours!
ceci dit en passant, je constate que toi tu n'as pas fait d'amalgame entre
dossier et répertoire (tout comme les dizaines voir centaines de personnes
qui postent sur VBfrance(entre autres))
et je sais que tu es un puriste!

Sorry pour J-M je suis passé à côté de ton exemple, je m'en excuse et t'en
remercie après coup.

Merci aussi a Driss que je rassure, je ne pense pas t'avoir considéré


comme
un "Niais" et je suis bien plus respectueux au quotidien, des gens et des
choses, que tu ne le penses.

Bien à vous tous

Pascal



"Jacques93" a écrit dans le message de news:
%
> Bonjour Pascal,
> Pascal a écrit :
>> Bonjour,
>>
>> Je souhaiterai récupérer dans 1 listview tous les dossiers de la


semaine
>> ou du mois
>> ou mieux entre 2 dates en partir du calendrier windows
>> Ne sait si cela est faisable en VB6, si oui auriez-vous une petite


piste
>> à me soumettre?
>>
> Dans l'exemple indiqué par Jean-Marc, tu as accès à la structure :
>
> Private Type WIN32_FIND_DATA
> dwFileAttributes As Long
> ftCreationTime As FILETIME
> ftLastAccessTime As FILETIME
> ftLastWriteTime As FILETIME
> nFileSizeHigh As Long
> nFileSizeLow As Long
> dwReserved0 As Long
> dwReserved1 As Long
> cFileName As String * MAX_PATH
> cAlternate As String * 14
> End Type
>
> qui contient la date de création : ftCreationTime
>
> Tu trouveras ici, dans la procédure GetFolderCreatedDate, la méthode


pour
> interpréter ce format de date :
>
> http://vbnet.mvps.org/index.html?code/fileapi/oldestfolder.htm
>
> Reste à faire un mix des deux exemples pour obtenir ce que tu désires.
>
>
> Si les API te semblent un peu lourde, tu peux utiliser fso
> (FileSystemObject) :
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> With Me.ListView1
> .ListItems.Clear
> For i = 0 To Me.Dir1.ListCount - 1
> s = Mid(Me.Dir1.List(i), InStrRev(Me.Dir1.List(i), "") + 1)
> .ListItems.Add , , s
> Set fld = fso.GetFolder(Me.Dir1.List(i))
> Debug.Print fld.Name & " : " & fld.DateCreated
> Next i
> End With
> Set fso = Nothing
>
> plus de détails ici :
>
> http://www.microsoft.com/france/msdn/scripting/fso.mspx
>
>
> Il y a également la fonction FileDateTime de VB6, mais qui renvoie soit


la
> date de création, soit la date de dernière modification.
>
> --
> Cordialement,
>
> Jacques.



1 2