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:\Test\Test2")

' For each file in the folder, copy the file to the destination 
For Each objFile In objFolder.Files 
    objFile.Copy "C:\Test2" 
Next

它告诉我：

vbs object doesn't support this property or method: 'CreateFolder'

Answer 1

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

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

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

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

VBS 告诉我对象不支持这个属性

VBS Tells me object doesn't support this property

vbscript

create-directory

VBS 告诉我对象不支持这个 属性

VBS Tells me object doesn't support this property

vbscript

create-directory

VBS 告诉我对象不支持这个属性