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.

[Miska59]

j'ai essayer avec un nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function FindFileImage(ByVal dossier As String) As Object
        If Directory.Exists(dossier) Then
            Dim liste As New List(Of String)
            Dim extensions() As String = {"*.jpg", "*.jpeg", "*.png", "*.gif", "*.bmp"}
            For Each extension As String In extensions
                For Each fichier As String In My.Computer.FileSystem.GetFiles(dossier, FileIO.SearchOption.SearchTopLevelOnly, extension)
                    liste.Add(Path.GetFileName(fichier))
                Next
            Next
            Return liste '=> ca me donne (collection)
        Else
            Return New List(Of String)() From {String.Empty}
        End If
    End Function

en sortie ça me donne (collection). comment faire pour afficher tous les fichiers dans un dossier?

[Phil Rob]

Bonjour,


Tu dois l' adapter pour ne prendre en compte que les fichiers qui ont l'extension qui t'intéresse, mais le code suivant qui calcule la somme des tailles des fichiers d'un dossier donné ("X:\MonDossier" dans cet exemple) :

Code :

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

1
2
3
4
5
6
7
8
    Private Sub Test()
        Dim MesFichiers() As String = Directory.GetFiles("X:\MonDossier")
        Dim UnFichier As String
        Dim Taille As Long = 0
        For Each UnFichier In MesFichiers
            Taille += FileLen(UnFichier)
        Next
    End Sub

Cdt

[wallace1]

Bonjour,

S'il s'agit simplement de récupérer la taille du dossier j'utiliserais la méthode .EnumerateFiles un poil plus performante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        Dim dirLength = Directory.EnumerateFiles(DirPath, "*", SearchOption.TopDirectoryOnly).Where(Function(fext)
                                                                                                   Return Path.GetExtension(fext) = ".jpeg" OrElse
                                                                                                          Path.GetExtension(fext) = ".jpg" OrElse
                                                                                                          Path.GetExtension(fext) = ".png" OrElse
                                                                                                          Path.GetExtension(fext) = ".gif" OrElse
                                                                                                          Path.GetExtension(fext) = ".bmp"
                                                                                               End Function).Sum(Function(f)
                                                                                                                     Return New FileInfo(f).Length
                                                                                                                 End Function)

Je pousserais le vice un peu plus loin lorsqu'il s'agit de vérifier qu'un fichier image n'est pas simplement un fichier renommé avec une extension d'image :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  Public Function CorrectImageFormat(filepath$) As Boolean
            Try
                Dim id As Guid = GetGuidID(filepath)
                If id = ImageFormat.Png.Guid OrElse id = ImageFormat.Bmp.Guid OrElse _
                    id = ImageFormat.Gif.Guid OrElse id = ImageFormat.Exif.Guid OrElse _
                    id = ImageFormat.Jpeg.Guid OrElse id = ImageFormat.MemoryBmp.Guid OrElse _
                    id = ImageFormat.Tiff.Guid Then
                    Return True
                End If
            Catch
                Return False
            End Try
            Return False
        End Function
 
  Private Function GetGuidID(filepath$) As Guid
            Dim imagedata As Byte() = File.ReadAllBytes(filepath)
            Dim id As Guid
            Using ms As New MemoryStream(imagedata)
                Using img As Image = Image.FromStream(ms)
                    id = img.RawFormat.Guid
                End Using
            End Using
            Return id
        End Function

Ce n'est qu'à titre info car la réponse de Phil fait largement le job.

Bon codage++

[Miska59]

merci de ta réponse wallace1,

j'ai trouver la solution a mon problème. cette calculer la taille de sortie du compression image avec un booléen de sortie compresser ou pas.
voici ce que ça donne :


Cordialement,