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

Question

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

此代码创建两个按钮，当按下两个按钮时，将创建一个名为“图片”和“快捷方式”的文件夹。我将如何将所有.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

我们必须从路径中提取文件名，并将其放入新路径，然后从旧路径移到新路径。这也是我如何重命名文件；在同一文件夹中有一个新名称，然后使用“移动”。始终使用Path类来剪切和合并文件路径