VBS 告诉我对象不支持此属性

Question

我真的不知道出了什么问题，有人能帮忙吗：

Dim objFSO, objFolder, objFile, objNewFolder
' Create the file system object/Assing the system object to a variable 
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Get the folder we want to copy files from 
Set objFSO = objFSO.GetFolder("C:Test")
' Create a new folder called Test2 
Set objNewFolder = objFSO.CreateFolder("C:TestTest2")
' For each file in the folder, copy the file to the destination 
For Each objFile In objFolder.Files 
    objFile.Copy "C:Test2" 
Next 

它告诉我：

vbs对象不支持此属性或方法："CreateFolder"

Answer 1

问题是您正在重新分配objFSO以成为此处返回的Folder对象：

Set objFSO = objFSO.GetFolder("C:Test")

在这一行之后，objFSO不再是Scripting.FileSystemObject，而是Scripting.Folder对象。您需要将代码更改为：

Set objFolder = objFSO.GetFolder("C:Test")