主页 / computer / 问题 / 1602812
Accepted
Coding Newbie
Asked: 2020-11-18 04:04:40 +0800 CST

如何将源文件夹名称附加到复制到 vbs 中另一个位置的文件？

  • 772

我有一个包含很多子文件夹的文件夹“文档”。这些子文件夹下有文件。

我的目标是将文件移动到一个文件夹位置，然后在某个时候能够将它们移回它们来自的子文件夹。

我的一般想法是在移动后将子文件夹名称附加到文件的开头。然后在需要将它们移回其源子文件夹时，可以将其用作参考。

这是可行的，还是您对我如何实现这一目标有任何其他想法？我只知道如何在 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
vbscript

1 个回答

  1. Best Answer

    我不知道这是否是最好的方法，但按照您的要求，此代码将起作用：

    Fsrc = "C:\Documents"
Fdst = "C:\Test\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Fsrc)
Set fsub = f.SubFolders
If Mid(Fdst, Len(Fdst), 1) <> "\" Then Fdst = Fdst & "\"

For Each f In fsub
    For Each fl In fs.GetFolder(Fsrc & "\" & f.name).Files
        new_name = Fsrc & "\" & f.name
        new_name = Replace(new_name, ":", "")
        new_name = Replace(new_name, "\", "_")
        new_name = new_name & "_" & fl.name
        fs.CopyFile fl, Fdst & new_name
    Next
    On Error Resume Next
Next
    • 1

相关问题