ou , vais voir ici => c'est en anglais , sous files and folders ..
http://www.fortunecity.com/skyscraper/plug/1230/inhoudstafel/common_text.htm#FILES AND FOLDERS
[ Lien ]-------------------------------
Réponse au message :
-------------------------------
>
> Néric
>
>
>
> le truc c ke je voudrai avoir tous les detail sur le fichier concerné ici adres.txt je voudrai vraiment avoir toutes les info pas seulement les date du fichier
> est-ce possible ???
> |
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > et ca est trop lents ?
> >
> > Private Sub Command1_Click()
> > ShowFileInfo "c:\adres.txt"
> > End Sub
> >
> > Sub ShowFileInfo(filespec)
> > Dim fs, f, s
> > Set fs = CreateObject("Scripting.FileSystemObject")
> > Set f = fs.GetFile(filespec)
> > s = s & "Created: " & f.DateCreated & vbCrLf
> > s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
> > s = s & "Last Modified: " & f.DateLastModified & vbCrLf
> > s = s & UCase(f.Name) & " uses " & f.Size & " bytes." & vbCrLf
> > s = s & UCase(f.Name) & " is a " & f.Type & vbCrLf
> >
> > MsgBox s
> >
> > End Sub
> >
> >
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Néric
> > >
> > >
> > > j'aimerai récupérer les propriètés des fichiers comme qd on fait bouton droit proprieté mais le veritable pb c ke j'ai + de 10000 fichiers a observer d'ou la complexité et surtout la lenteur alors si qq'un serai faire qqchose kil me previenne ce serai sympa merci d'avance
> > > |
> >
>