このコードで作成されたファイルのパスを取得する方法は？

Question

は私が

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

は、だから今、私はTextBox1テキストボックスを持っていると私はそれ どのように最後に保存した画像のパスを表示したい私のアプリでファイルを保存するには、このコードを使用していますか？

よろしく,,,,私は過去に何をやったか

Answer 1

はワンステップでパスを生成し、保存を行うために生成された変数を使用して表示することです。

ので、代わりの：

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

試してみてください。

'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

おかげで、すべて私が `TextBox1.Text = IO.Path、おそらく成功し`

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