Comment obtenir le chemin du fichier créé par ce code?

Question

J'utilise ce code pour enregistrer des fichiers dans mon application

Dim filePath = String.Format("image{0:yyyyMMddHHmmss}.png", DateTime.Now) 
    PictureBox1.Image.Save(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), (filePath))) 

Alors maintenant, j'ai un textbox1 et je veux montrer le chemin de la dernière image enregistrée dans ce comment?

Cordialement ,,,,

Answer 1

Ce que je l'ai fait dans le passé est de générer le chemin en une seule étape, puis utiliser la variable générée pour faire l'enregistrement et à afficher.

Ainsi, au lieu de:

Dim filePath = String.Format("image{0:yyyyMMddHHmmss}.png", DateTime.Now) 
PictureBox1.Image.Save(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), (filePath))) 

Essayez:

'Generate the Path 
Dim path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), String.Format("image{0:yyyyMMddHHmmss}.png", DateTime.Now)) 
'Save using the generated path 
PictureBox1.Image.Save(path) 
'Display the path 
textbox1.Text = path 

Answer 2

Merci à tous je l'ai fait avec succès `

Dim filename As String = String.Format("image{0:yyyyMMddHHmmss}.png", DateTime.Now) 
    Dim filePath1 = (IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), (filename))) 
    Dim filePath2 = (IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), ("RMSS"))) 
    If IO.Directory.Exists(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), (" RMSS"))) = True Then 
     TextBox1.Text = filePath1 
     TextBox2.Text = filePath2 & "\" & filename 
     PictureBox1.Image.Save(filePath1) 
     My.Computer.FileSystem.MoveFile(TextBox1.Text, TextBox2.Text, True) 
    Else 
     TextBox1.Text = filePath1 
     TextBox2.Text = filePath2 & "\" & filename 
     PictureBox1.Image.Save(filePath1) 
     My.Computer.FileSystem.MoveFile(TextBox1.Text, TextBox2.Text, True) 
    End If