我有一个包含很多子文件夹的文件夹“文档”。这些子文件夹下有文件。
我的目标是将文件移动到一个文件夹位置,然后在某个时候能够将它们移回它们来自的子文件夹。
我的一般想法是在移动后将子文件夹名称附加到文件的开头。然后在需要将它们移回其源子文件夹时,可以将其用作参考。
这是可行的,还是您对我如何实现这一目标有任何其他想法?我只知道如何在 VBA 中移动/复制文件。
这是我使用的当前代码:
Fldr= "C:\Documents"
Set fs=createobject("scripting.filesystemobject")
Set f=fs.getfolder(Fldr)
Set fsub=f.subfolders
For each f in fc
Subfolderspec=Fldr&"\"&f.name
fs.copyfile Subfolderspec & "*.*", "C:\Test"
On Error Resume Next
Next