Как получить полный путь к выбранному каталогу, а затем использовать этот каталог в коде - PullRequest
Новая
       54

Как получить полный путь к выбранному каталогу, а затем использовать этот каталог в коде

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

В настоящее время я создал код, который захватывает расширение файла Ceratin и помещает его в определенную папку. 

        My.Computer.FileSystem.CreateDirectory(
"C:\Users\bj\Desktop\Excel Files")

        Dim filePaths31 = IO.Directory.GetFiles("C:\Users\bj\Desktop\", "*.xlsx")

        For Each filePath31 In filePaths31
            Dim filename31 = IO.Path.GetFileName(filePath31)
            Dim newPath31 = IO.Path.Combine("C:\Users\bj\Desktop\Excel Files", filename31)

            If IO.File.Exists(newPath31) Then
                MessageBox.Show("Error: Please check if the file elready exists")

                Return

            End If

            IO.File.Move(filePath31, newPath31)

        Next filePath31

        MessageBox.Show("Excel Files Compiled And Cleaned")

Этот код хорошо работает, хотя каталог, реализованный внутри кода, должен быть разным для каждого пользователя.

Я экспериментировал с этим кодом, который позволяет пользователю выбрать каталог, хотя теперь мне нужна помощь в назначении этого полного каталога в IO.Path.Combine(users chosen directory here + \Excel Files, filename31

        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim grade As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)

Этот код, по-моему, захватывает пользовательский каталог и сохраняет его в переменной сорта. Мне нужно выяснить, как сохранить эту переменную 'grade' в моем коде, а также создать новую папку в этом каталоге, которая указана в коде.

...