mysql - 如何在 vb.net 中一个一个地 move 文件并将其从一个目录重命名为另一个目录

Question

请熟悉 vb.net 的人帮助我。

我必须制作一个程序，将图像(以 jpg 格式)从一个目录 move 到另一个目录，但在此之前，它会先重命名一个文件，然后再将其 move 到目标文件夹。我需要这样，因为每次重命名文件时，它都会保存到数据库(mysql)中

我已经有一个程序可以将所有 jpg 文件 move 到另一个目录，但这不是我需要的。

我需要你的专业知识和代码。

我对 vb.net 不是很好

---

评论中OP的 move 方法:

Dim sourceDirectory As String = TextBox1.Text 
Dim archiveDirectory As String = TextBox2.Text 
Try 
    Dim jpgFiles = Directory.EnumerateFiles(sourceDirectory, "*.jpg") 
    For Each currentFile As String In jpgFiles 
        Dim fileName = currentFile.Substring(sourceDirectory.Length + 1) 
        Directory.Move(currentFile, Path.Combine(archiveDirectory, fileName)) 
    Next 
Catch e As Exception 
    Console.WriteLine(e.Message) 
End Try 

Answer 1

如果您使用 System.IO.File.Move您可以选择在 move 文件的同时重命名文件。我不确定您是如何确定新文件名的，所以我最好的建议是查看我提供的 MSDN 链接中的示例代码。

来自上面的链接:

Moves a specified file to a new location, providing the option to specify a new file name.

File.Move ( sourceFileName As String, destFileName As String )

---

添加了基于 OP 的评论的示例，展示了如何重命名文件:

Dim sourceDirectory As String = TextBox1.Text
Dim archiveDirectory As String = TextBox2.Text
Try
    Dim jpgFiles = Directory.EnumerateFiles(sourceDirectory, "*.jpg")
    For Each currentFile As String In jpgFiles
        Dim fileName = Path.GetFileName(currentFile)
        Directory.Move(currentFile, Path.Combine(archiveDirectory, Path.GetFileNameWithoutExtension(fileName) & ".old"))
    Next
Catch ex As Exception
    Console.WriteLine(ex.Message)
End Try