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 объект не поддерживает это свойство или метод: «CreateFolder»

Answer 1

проблема заключается в том, что вы переназначениеobjFSO стать Folder объект не вернулся сюда:

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

После этой линии, objFSO больше не Scripting.FileSystemObject, его Scripting.Folder объект. Вам необходимо изменить код:

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