Renommer fichier [Probleme dans mon code]
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 :D
Voici le code :
Code:
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")
