0

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

1 回答 1

0

我们将从简单开始。此命令将在桌面上生成所有 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 类来剪切和组合文件路径

于 2020-04-09T05:53:41.973 回答