如何使用 VB 将某个文件扩展名移动到一个文件夹中

Question

我是 VB 的新手，想创建一个将特定文件扩展名移动到单个文件夹中的软件。我已经构建了单击按钮时在桌面上创建文件夹的代码，尽管在运行之后我需要将某个文件（例如（.png）编译到创建的文件夹中。

这段代码创建了两个按钮，按下它们会创建一个名为 "Pictures" 和 "Shortcuts" 的文件夹。 如何将所有 .png 文件从桌面移动到图片文件夹中？

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        My.Computer.FileSystem.CreateDirectory(
  "C:\Users\bj\Desktop\Pictures")
        MessageBox.Show("Pictures Compiled And Cleaned")
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.FileSystem.CreateDirectory(
"C:\Users\bj\Desktop\Shortcuts")
        MessageBox.Show("Shortcuts Compiled And Cleaned")
    End Sub
End Class

Answer 1

我们将从简单的开始。此命令将生成一个包含所有 PNG 文件在桌面上的路径的数组

Dim filePaths = Io.Directory.GetFiles("C:\Users\bj\Desktop\", "*.png")

我们可以遍历这个数组并对每个文件路径进行操作：

For Each filePath in filePaths
    Dim filename = Io.Path.GetFilename(filepath)
    Dim newPath = IO.Path.Combine("C:\Users\bj\Desktop\Pictures", filename)

    IO.File.Move(filePath, newPath)

Next filePath

我们必须将文件名从路径中拉出并将其放入新路径，然后从旧路径移动到新路径。这也是您重命名文件的方式；在同一文件夹中有一个新名称并使用移动。始终使用路径 class 来剪切和合并文件路径

如何使用 VB 将某个文件扩展名移动到一个文件夹中

How can I move a certain file extension into one folder with VB

vb.net

directory

file-extension

movefile