Choper la taille d'un fichier en VB6

[Gen]

All iz in the Title ...

 

J'aimerais avoir le code pour ce truc tout con qui consiste à connaître la taille d'un fichier en VB6 ... paske là je sèche ... à moins de fouttre tout le fichier dans un tampon et de regarder la taille du tampon ... euh...

[gravier]

Dim fs, f, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("c:\testfile.txt")

s = f.size & " bytes." //taille du fichier

 

s = UCase(f.Path) & vbCrLf

s = s & "Créé le : " & f.DateCreated & vbCrLf

s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf

s = s & "Dernière modification le : " & f.DateLastModified

MsgBox s, 0, "Infos d'accès au fichier"

Modifié le 8 juin 2003 par gravier

[Gen]

Merci gravier c génial ...

 

En attendant j'avais trouvé une autre solution : ne prendre en compte que les 5 premiers octets et le reste s'en foutre ... enfin je vais tester avec ton code voir un peu de quoi il en retourne ...

[KarLKoX]

Plus simple :

 

dim m_dwFileSize as long

      m_dwFileSize = FileLen("c:\temp\foo.txt")
      debug.print m_dwFileSize

[Gen]

Merci KarLKoX mais c'est bon je l'ai fait depuis longtemps...

[leneuf22]

Ben, qu'est-ce que t'attends pour corriger

[Gen]

Ben j'ai gardé le système qui ne regarde pas la taille du fichier qui lis les 9 premiers octets et qui se fout du reste ...