Question

我想使用VBScript将所有子文件夹及其文件移动，并保留树“ V：\ FTP”中的树到“ V：\ FTP \ Completed”。

我想从移动中排除“ V：\ FTP \ TEMP1”和“ V：\ FTP \ TEMP2”。

我有一个脚本将“ V：\ FTP”中的所有文件移至“ V：\ FTP \ Completed”中，但不包括“ V：\ FTP \ folder.jpg”：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("V:\FTP").Files
For Each objFile In objFolder
    If objFile.Name <> "folder.jpg" Then
        objFSO.MoveFile objFile.Path, "V:\FTP\Completed\"
    End If
Next

我的问题是我不知道如何对文件夹进行相同操作。

Answer 1

阅读文档后，这里是我的工作脚本：

Dim fso, objFol, objMoveFol

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFol = fso.GetFolder("V:\FTP")

For Each objMoveFol In objFol.SubFolders

If objMoveFol.Name <> "Completed" and objMoveFol.Name <> "TEMP2" and objMoveFol.Name <> "TEMP1" Then

    objMoveFol.move "V:\FTP\Completed\"
End If

Next

如何将所有子文件夹移动到另一个保留树的文件夹？

1 个答案: