Discussion :

[barbiche42]

Bonjour tous le monde,

Voila donc mon 1er poste sur developpez.net

Je viens à vous car je n'arrive pas à résoudre un problème.

Je bosse actuellement sur une application permettant de contrôler l’intégrité d'un fichier.

Tout fonctionne correctement. Seulement voila, j'aimerai pouvoir exécuter mon contrôle d’intégrité sans avoir à sélectionner le fichier à contrôler.

En gros il suffirait de lancer Monexecutable.exe dans le même répertoire que le fichier à analyser. et ce, en ce basant uniquement sur l'extension du fichier car le nom pourrait changer !

Si vous avez une idée, je suis tout ouïe.

Voila le code de ma form principale (sans le module car pas nécessaire pour régler le problème)

Je me suis permis de vous mettre en rouge le code qui devra certainement être modifié.

Merci pour votre aide éventuelle.

barbiche42.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Class Form1


    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub confirm()
        Dim Box As MsgBoxResult = MsgBox("L'opération de contrôle d'integrité peut durer plusieur minutes ! Voulez vous Continuer ?", MsgBoxStyle.YesNo)
        If Box = MsgBoxResult.Yes Then
            Exit Sub
        Else
            Me.Close()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        confirm()

        'Integration  CRC
        Dim i As Integer
        Dim montexte As String
        montexte = ""
        For i = 0 To My.Resources.CRC32.Length - 1
            montexte = montexte + (My.Resources.CRC32(i))
        Next
        TextBox3.Text = montexte

        'Integration  MD5
        Dim o As Integer
        Dim montexte1 As String
        montexte = ""
        For o = 0 To My.Resources.MD5.Length - 1
            montexte1 = montexte1 + (My.Resources.MD5(o))
        Next
        TextBox4.Text = montexte1

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()

        'Création CRC et MD5 depuis le module
        With OpenFileDialog1

              Dim path As String = TextBox1.Text
            TextBox2.Text = MD5CalcFile(path)
            TextBox5.Text = GetCRC32(path)
        End With

        'Comparaison entre CRC et MD5 de base
        Dim CRCorigin As String = TextBox3.Text
        Dim CRCNew As String = TextBox5.Text

        Dim MD5origin As String = TextBox4.Text
        Dim MD5New As String = TextBox2.Text

        If TextBox3.Text = TextBox5.Text And
           TextBox4.Text = TextBox2.Text Then
            MsgBox("les sommes de contrôle sont identiques, le fichier est valide.", MsgBoxStyle.Information)
        Else
            MsgBox("les sommes de contrôle sont différentes, le fichier  est endommagé.", MsgBoxStyle.Exclamation)

        End If
    End Sub

[barbiche42]

J'avance un peu...

Je crois que je vais avoir besoin de FileInfo et DirectoryInfo...
mais je tourne en rond.

[barbiche42]

J'ai réussi à lister le dossier de l’exécutable !
je suis tout proche !

Dim dir As New IO.DirectoryInfo(Application.StartupPath)

Label1.Text = dir.ToString
Dim files As IO.FileInfo() = dir.GetFiles("*.rar")
For Each fileName In files
ListBox1.Items.Add(fileName.Name)

[barbiche42]

J'ai finalement réussi à trouver

pour ceux qui auraient suivis et/ou qui avaient une autre solution, voici la mienne:

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
 
 Dim dir As New IO.DirectoryInfo(Application.StartupPath)
        Dim files As IO.FileInfo() = dir.GetFiles("*.rar")
        For Each fileName In files
            Label5.Text = (fileName.Name)
            TextBox1.Text = dir.ToString + "\" + Label5.Text
 
 
        Next
 
        'Création CRC et MD5 depuis le module
        With TextBox1.Text
 
            Dim path As String = TextBox1.Text
            TextBox2.Text = MD5CalcFile(path)
            TextBox5.Text = GetCRC32(path)
        End With