Как я могу переместить определенное расширение файла в одну папку с VB - PullRequest
Новая
       49

Как я могу переместить определенное расширение файла в одну папку с VB

0 голосов
/ 09 апреля 2020

Я новичок в VB и хотел бы создать программное обеспечение, которое перемещает определенное расширение файла в одну папку. Я уже создал код, который создает папку на рабочем столе при нажатии кнопки, хотя после этого мне нужно скомпилировать определенный файл, например (.png), в созданную папку.

Этот код создает две кнопки, которые при нажатии создают папку под названием «Изображения» и «Ярлыки». Как мне go переместить все файлы .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

1 Ответ

0 голосов
/ 09 апреля 2020

Начнем с простого. Эта команда сгенерирует массив всех путей PNG-файлов на рабочем столе 

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

Мы можем l oop пройти через этот массив и воздействовать на каждый путь к файлу: 

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

Мы нужно извлечь имя файла из пути и поместить его в новый путь, а затем перейти от старого к новому. Это я также, как вы переименовываете файлы; иметь новое имя в той же папке и использовать Move. Всегда используйте класс Path, чтобы вырезать и объединить пути к файлам

...