Discussion :

[Miska59]

Bonjour,

j'arrive pas avoir la tailles des fichiers dans un dossier image car ca me donne que 2 Ko.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Function ConvertNewSize(ByVal FilePath As String) As String
        Dim ext As String() = {".jpeg", ".jpg", ".png", ".gif", ".bmp"}
        Dim info As New DirectoryInfo(FilePath)
        Dim files As FileInfo() = info.EnumerateFiles.Where(Function(f) ext.Contains(f.Extension.ToLower)).ToArray
        Return String.Format("{0}{1}", files.Length, " Ko")
    End Function

Comment faire pour obtenir la taille des fichiers dans un dossier?
Merci de votre réponse.