Vb.net 从子文件夹中移动PDF文件并重命名它

我是stackoverflow论坛的新手，请原谅我。这就是我要做的。我在两个子文件夹中有一个.pdf文件，例如：\edm\4123\gfh在gfh目录中有一个.pdf文件。我需要能够获取此PDF文件，重命名它，并将其复制到根目录（\edm），我正在使用Visual Studio 2013，这里是我的起点（使用我在网上找到的一些代码）

选项显式打开

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)"

任何帮助都将不胜感激-而且，我正在模块上输入此代码，对吗

以下是我现在使用的代码：

模块1

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

端模块

当我试图将文件（变量：foundFile）移动到某个位置时，出现问题。有什么想法吗？

你可以使用File.Copy（）

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