Bonjour à toutes et à tous !

Voici mon problème :

Je suis entrain de faire un programme qui se lance après un scan d'un document. il consiste a ouvrir une fenêtre, on écrit dans la textbox ce qu'on veux, en appuyant OK on renomme le fichier qui viens d’être scanné sous cette forme : "yyyy-MM-dd_nom_du_fichier".

- On connait le chemin du fichier (C:\transfert\)

- On connait le début du nom de ce fichier
(sous la forme de "tmp42" comme par exemple tmp4204.pdf ou tmp426502.jpg)

Je lance mon programme, j’écris un nom dans le textbox, je vérifie que je recup bien le nom du fichier à renommer.
Mais ça foire et je ne comprend pas.

Un petit coup de pouce serait le bienvenu

Voici le 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
15
16
17
18
19
20
21
22
23
24
25
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom As String
        Dim d As Date = Now
        Dim Fich As String
        Fich = FileSystem.Dir("C:\transfert\tmp42*")
        MsgBox(Fich)
        If TextBox1.Text = "" Then
            MsgBox("Erreur : impossible de renommer votre fichier.")
        Else
            nom = d.ToString("yyyy-MM-dd")
            nom &= "_"
            nom &= TextBox1.Text
            My.Computer.FileSystem.RenameFile(Fich, nom & ".pdf") '<-- le debug pense que le probleme est la !
            Application.Exit()
        End If
    End Sub

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

    End Sub
End Class
EDIT : Problème resolu !

Au lieu de My.Computer.FileSystem.RenameFile(Fich, nom & ".pdf")
j'ai mis My.Computer.FileSystem.RenameFile("C:\transfert\" & Fich, nom & ".pdf")