Discussion :

[Attila54]

Bonjour,
J'ai fait un petit bout de code pour transferer un fichier d'un rep a un autre de mon DD
Ce fichier n'a pas de nommage fixe. C'est un .jpg defini par "contenu_de la textbox1.jpg". Ainsi, si ma textbox contient marcel, le fichier sera marcel.jpg et si elle contient paul, le fichier sera paul.jpg

l'action deplacement est faite sur clic d'un button "cut".
Dans mes declarations initiales, j'ai mis :

Code :

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

1
2
Private path As String = "\\nas\rep1\rep2\rep3\rep4\rep5\.*.jpg"
Private path2 As String = "\\nas\rep1\rep2\rep3\rep4\rep6\.*.jpg" (rep6 car c'est ici qu'intervient le deplacement)

et sur mon clic, j'ai fait :

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
Private Sub Buttoncut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncut.Click
        Try
            If File.Exists(path) = False Then
                ' verification que le fichier existe,
                'sinon le crée     
                Dim fs As FileStream = File.Create(path)
                fs.Close()
            End If
 
            ' vérification que ne fichier n’existe pas deja dans le rep destination.
            If File.Exists(path2) Then
                File.Delete(path2)
            End If
 
            ' deplacement du fichier
            File.Move(path, path2)
            Console.WriteLine("{0} moved to {1}", path, path2)
 
            ' See if the original file exists now.
            If File.Exists(path) Then
                Console.WriteLine("The original file still exists, which is unexpected.")
            Else
                Console.WriteLine("The original file no longer exists, which is expected.")
            End If
        Catch
            Console.WriteLine("The process failed: {0}", e.ToString())
        End Try
 
    End Sub

ca ne fonctionne malheureusemet pas, je n'ai pas de message d'erreur mais rien ne se passe et si je remplace

Code :

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

catch

par

Code :

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

Catch e As Exception

, j'ai l'erreur

la variable e masque une variable dans un bloc englobant

Je n'arrive pas a trouver mon erreur et vous remercie de votre aide

[meziantou]

Il y a un argument qui s'appelle "e". Tu ne peux donc pas utiliser une variable du même nom. Tu peux l'appeler "ex" par exemple

[BenoitM]

le mask pour rechercher un fichier c'est *.jpg et pas .*.jpg

il faut supprimer les *.jpg de PathSource et PathDestination par exemple "\\nas\rep1\rep2\rep3\rep4\rep5\"

dans btn_click

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
 
Private Sub Buttoncut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncut.Click
Try
 
    Dim FileSource As String
    Dim FileDestination As String
    FileSource =  PathSource + txtFileName.Text + ".jpg"
    FileDestination = PathDestination + txtFileName.Text + ".jpg"
    If File.Exists(FileSource ) = False Then 
       MessageBox.Show("Fichier introuvable")
       Exit Sub
    End If
    If File.Exists(FileDestination ) Then
        File.Delete(FileDestination )
    End If
    File.Move(FileSource,FileDestination)
 
Catch ex
           MessageBox.Show(String.Format("The process failed: {0}", ex.ToString()))
End Try
End Sub

[Attila54]

alors ok merci pour l'aide mais maintenant j'ai un souci avec filename.text (option strict on rejette toute liaison tardive et avec "ex" qui me dit "non déclaré" alors que je l'ai déclaré

[BenoitM]

Alors il n'y a jamais de filename.Text dans le code que j'ai donné

Au mieux il y a txtFileName.Text euh que j'ai mal nommé et qui devrait etre tbFileName.Text et qui correspond au nom de la TextBox dans lequel l'utilisateur rentre le nom donc il faut remplacer txtFileName par le vrai nom de ta TextBox.

Pour le catch

Code :

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

1
2
3
4
Catch ex As Exception
           MessageBox.Show(String.Format("The process failed: {0}", ex.ToString()))
End Try

Je code en C# donc ma syntaxe VB n'est pas toujours au top mais logiquement tu devrais pouvoir t'en sortir si tu connaissais toi aussi la syntaxe VB.Net

[Attila54]

ce qui est archi vrai me concernant ..... mais si en même temps je connaissais parfaitement la syntaxe vb.net, je ne poserais pas de questions aussi stupides ..... je me bafferais bien tiens .....

[Attila54]

ah ben maintenant arguments trop nombreux pour sourcefilename et destfilename a

Code :

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

 File.Move(FileSource, FileDestination, True)

Code :

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

1
2
FileSource = "\\nas\rep1\rep2\rep3\rep4\rep5\" & Textbox1.Text & "-" & .textbox2.Text & ".jpeg"
FileDestination = "\\nas\rep1\rep2\rep3\rep4\rep6\" & Textbox1.Text & "-" & .textbox2.Text & ".jpeg"

trop de parametres ???