Taille fichier

Sl, je voudrai savoir s'il existe un code pour pouvoir lire(connaitre) la taille d'un fichier

Merci

Salut,

Voir l'api GetFileSize
[ Lien ]

__________
  Kenji

Ou plutôt GetFileSizeEx
[ Lien ]

__________
  Kenji

x=FILELEN(chemin)

http://www.codyx.org/recherche.aspx?r=taille+fichier

Merci pour les réponses

Charles Racaud  la fonction GetFileSizeEx  pourrait-elle fonctionner pour le VB d'Excel ?

BOOL WINAPI GetFileSizeEx(
  __in   HANDLE hFile,
  __out  PLARGE_INTEGER lpFileSize
);

Que veut dire WINAPI ?

merci

WinAPI, c'est l'api windows. Windows fonction grâce à une multitude d'api.
Voila un exemple :

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" ( _
  ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, _
  ByVal dwShareMode As Long, lpSecurityAttributes As Any, _
  ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, _
  ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
  ByVal hObject As Long) As Long
Private Declare Function GetFileSizeEx Lib "kernel32" (ByVal hFile As Long, _
  lpFileSizeHigh As Currency) As Boolean

Private Const GENERIC_READ = &H80000000
Private Const FILE_SHARE_READ = &H1
Private Const OPEN_EXISTING = 3

Private Function GetFileSize(ByVal FileName As String) As Currency
  Dim hFile As Long
  hFile = CreateFile(StrPtr(FileName), GENERIC_READ, FILE_SHARE_READ, ByVal 0&, _
    OPEN_EXISTING, ByVal 0&, ByVal 0&)
  Call GetFileSizeEx(hFile, GetFileSize)
  Call CloseHandle(hFile)
  GetFileSize = GetFileSize * 10000
End Function
Coloration syntaxique vb/vba/vb.net

__________
  Kenji

Bonjour,

Comme l'indique PCPT, il reste que FILELEN est tout même plus simple à mettre en oeuvre...
Voir cette source (presque la 1er sur VBF) : http://www.vbfrance.com/codes/TAILLE-FICHIER_42.aspx donnant la base...

Amicalement,
Us.

Salut

Quand j'écris ce code et que je le compile
Sub essai()
Dim tailleEnOctets As Long
tailleEnOctets = My.Computer.FileSystem.GetFileInfo("C:\blablabla.txt").Length
End Sub

le programme bugg et me met erreur 424 "d'objet requis" sur la ligne :
 tailleEnOctets = My.Computer.FileSystem.GetFileInfo("C:\blablabla.txt").Length
merci

tu tentes de faire fonctionner du code .Net dans un environnement VBA...

concernant fileLen, il va bien pour des fichiers < 4Go