2016-05-06 8 views
1

をサポートしていません、私は真剣に間違っているのか分からない私に指示することができます誰も助け:VBSは、オブジェクトはこのプロパティ

VBSオブジェクトがサポートしていません:それは私に語っ

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 

このプロパティまたはメソッド「CREATEFOLDER」

答えて

1

問題は、あなたがになるためにobjFSOを再割り当てされていることですオブジェクトは、ここで返さない:

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

をこの行の後、objFSOはもはやScripting.FileSystemObject、そのScripting.Folderオブジェクトです。コードを次のように変更する必要があります。

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

ありがとうございました! –

関連する問題