Question

我是stackoverflow论坛的新手，所以请原谅我。这是我想要做的。我在两个子文件夹中有一个.pdf文件，在gfh目录中有ex：\ edm \ 4123 \ 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）移动到某个位置时，我遇到了问题。有什么想法吗？

Answer 1

您可以使用File.Copy（）

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

从子文件夹移动PDF文件并重命名

1 个答案: