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

时间:2013-11-15 20:48:38

标签: vb.net pdf

我是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)移动到某个位置时,我遇到了问题。有什么想法吗?

1 个答案:

答案 0 :(得分:0)

您可以使用File.Copy()

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