2013-11-15 27 views
0

我是新来的stackoverflow论坛,所以请原谅我。这是我想要做的。我在两个子文件夹中有一个.pdf文件,例如gfh目录中有:\ edm \ 4123 \ gfh,其中有一个.pdf文件。我需要能够抓住这个PDF文件,重命名它,并将其复制到根目录(\ edm)我使用的是Visual Studio 2013,这里是我从哪里开始的(我在网上找到一些代码)从子文件夹中移动PDF文件并对其进行重命名

显式的选项在

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)到一个位置。有任何想法吗?

回答

0

同比可以使用File.Copy()

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

将这工作为一个PDF文档,而不是 “file.pdf” – user2997811

相关问题