Перемещение PDF-файла из подпапки и переименование его

Question

Я новичок в форумах stackoverflow, поэтому, пожалуйста, простите меня. Вот что я пытаюсь сделать. У меня есть файл .pdf в двух подпапках, например: \ edm \ 4123 \ gfh в каталоге gfh есть .pdf-файл. Мне нужно иметь возможность захватить этот файл PDF, переименовать его и скопировать в корневой каталог (\ edm). Я использую Visual Studio 2013, и здесь я начинаю с (с кодом, который я нашел онлайн)

Option Explicit On

Sub ListFiles() 
    Dim objFSO As Scripting.FileSystemObject 
    Dim objTopFolder As Scripting.Folder 
    Dim strTopFolderName As String 


    strTopFolderName = "\\10.30.5.249\edmbursting\Olympus" 

    SetAttr objFSO - CreateObject (Scripting.FileSystemObject)" 

Любая помощь будет принята с благодарностью - Кроме того, я вхожу этот код на модуле, это правильно?

Вот код, я использую в настоящее время:

Модуль Module1

Sub Main() 
    For Each foundFile As String In My.Computer.FileSystem.GetFiles(
     "\\10.30.5.249\edmfiles\Olympus", 
Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.pdf*") 

     My.Computer.FileSystem.MoveFile() 


    Next 

End Sub 

End Module

У меня возникли проблемы, когда я пытаюсь переместить файл (переменная: foundFile) на место. Есть идеи?

Answer 1

Yoy можно использовать File.Copy()

System.IO.File.Copy("\edm\4123\gfh\FILE.pdf", "\edm\FILERENAMED.pdf")