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

【问题标题】：How can I move a certain file extension into one folder with VB如何使用VB将某个文件扩展名移动到一个文件夹中
【发布时间】：2020-07-21 16:26:47
【问题描述】：

我是 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

【问题讨论】：

标签： vb.net directory file-extension movefile

【解决方案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 类来剪切和组合文件路径

【讨论】：

太棒了，谢谢。正是我想要的！如果我还要将 jpg 图像编译到图片文件夹中，我将如何添加它？ ( ".png" , ".jpg")
@Brenduan，当您阅读GetFiles 方法的文档时，是否暗示会出现这种情况？你可以自己找。只需单击方法名称并按 F1 键。 Windows 中的上下文相关帮助已经存在了几十年。
您必须将其作为两个操作进行。没有“这个扩展或那个扩展”的设施。与我在这里使用 foreach 循环循环文件字符串列表的方式相同，您可以创建一个包含您想要的所有扩展名的数组，然后 foreach 循环遍历它，因此您将在 foreach 循环内有一个 foreach 循环，一个循环做文件，另一个做扩展