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)到一个位置。有任何想法吗?
将这工作为一个PDF文档,而不是 “file.pdf” – user2997811