Discussion :

[hacker59]

bonjour,
je voudrais de l'aide pour afficher label4.text la taille du fichier par ex:OctetsKoMoGo
voici mes codes:

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
27
28
29
30
31
32
33
34
35
Imports System.IO
Imports System.Math
 
Public Class Form1
    Dim OctetsToKoMoGo As String
    Dim taille As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Addition As Integer = 0
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            Label2.Text = Path.GetFileName(OpenFileDialog1.FileName)
            Label4.Text = OpenFileDialog1.FileName.Length * OctetsToKoMoGo
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        End If
    End Sub
    Sub KoMoGo()
        If taille < 1024 Then
            OctetsToKoMoGo = taille & " Octets"
 
        ElseIf taille >= 1024 And taille < 1048576 Then
            OctetsToKoMoGo = Round((taille / 1024), 2) & " Ko"
 
        ElseIf taille >= 1048576 And taille < 1073741824 Then
            OctetsToKoMoGo = Round((taille / 1048576), 2) & " Mo"
 
        ElseIf taille >= 1073741824 And taille < 1099511627776 Then
            OctetsToKoMoGo = Round((taille / 1073741824), 2) & " Go"
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

je voudrais quand j'ouvre un fichier , il me dit automatique s'il est en Octets ou Ko ou Mo ou Go.
voici en image mon projet:
merci, cordialement

[carlfil]

Bonjour,
La méthode pour connaitre la taille d'un fichier:

Code :

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

1
2
3
Dim mon_fichier As New System.IO.FileInfo("c:\users\toto\desktop\fichier.ini")
        Dim taille As String = mon_fichier.Length.ToString
        MessageBox.Show(taille)

bonjour,
je voudrais de l'aide pour afficher label4.text la taille du fichier par ex:OctetsKoMoGo
voici mes codes:

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
27
28
29
30
31
32
33
34
35
Imports System.IO
Imports System.Math
 
Public Class Form1
    Dim OctetsToKoMoGo As String
    Dim taille As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Addition As Integer = 0
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            Label2.Text = Path.GetFileName(OpenFileDialog1.FileName)
            Label4.Text = OpenFileDialog1.FileName.Length * OctetsToKoMoGo
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        End If
    End Sub
    Sub KoMoGo()
        If taille < 1024 Then
            OctetsToKoMoGo = taille & " Octets"
 
        ElseIf taille >= 1024 And taille < 1048576 Then
            OctetsToKoMoGo = Round((taille / 1024), 2) & " Ko"
 
        ElseIf taille >= 1048576 And taille < 1073741824 Then
            OctetsToKoMoGo = Round((taille / 1048576), 2) & " Mo"
 
        ElseIf taille >= 1073741824 And taille < 1099511627776 Then
            OctetsToKoMoGo = Round((taille / 1073741824), 2) & " Go"
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

je voudrais quand j'ouvre un fichier , il me dit automatique s'il est en Octets ou Ko ou Mo ou Go.
voici en image mon projet:
merci, cordialement

[tomlev]

Cette instruction n'a aucun sens :

Code :

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

OpenFileDialog1.FileName.Length * OctetsToKoMoGo

Qu'est-ce que la longueur du chemin du fichier vient faire là dedans ?

Si tu veux la taille du fichier, tu peux faire comme indiqué par carlfil

Pour afficher correctement la taille en Ko/Mo/Go etc, il y a une classe faite pour ça dans la librairie Dvp.NET (le plus simple est de l'installer avec Nuget) :

Code :

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

1
2
3
Dim file As New FileInfo(OpenFileDialog1.FileName)
Dim formatter = New Developpez.Dotnet.ByteSizeFormatter()
label4.Text = formatter.Format(file.Length)

[hacker59]

bonjour , je viens trouver la solution a mon probleme.il fonction parfaitement.
voici mes codes:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports System.IO
Imports System.Math
 
Public Class Form1
    Dim Taille As String
    Dim OctetsToKoMoGo As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Addition As Integer = 0
        OpenFileDialog1 = New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        For Each FileNames In OpenFileDialog1.FileNames
            TextBox1.Text = (FileNames)
            Taille = FileLen(FileNames)
            KoMoGo()
            Dim File As String = System.IO.Path.GetFileName(FileNames)
            Label2.Text = File
            Addition += Taille
            Label4.Text = OctetsToKoMoGo
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        Next
    End Sub
    Sub KoMoGo()
 
        If Taille < 1024 Then
            OctetsToKoMoGo = Taille & " Octets"
 
        ElseIf Taille >= 1024 And Taille < 1048576 Then
            OctetsToKoMoGo = Round((Taille / 1024), 2) & " Ko"
 
        ElseIf Taille >= 1048576 And Taille < 1073741824 Then
            OctetsToKoMoGo = Round((Taille / 1048576), 2) & " Mo"
 
        ElseIf Taille >= 1073741824 And Taille < 1099511627776 Then
            OctetsToKoMoGo = Round((Taille / 1073741824), 2) & " Go"
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

voici en image: