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 :
EDIT : Problème resolu !
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
Au lieu de My.Computer.FileSystem.RenameFile(Fich, nom & ".pdf")
j'ai mis My.Computer.FileSystem.RenameFile("C:\transfert\" & Fich, nom & ".pdf")
Partager