Vbscript 将文件从文件夹复制到新创建的文件夹_Vbscript

Vbscript 将文件从文件夹复制到新创建的文件夹

vbscript

Vbscript 将文件从文件夹复制到新创建的文件夹,vbscript,Vbscript,下面的代码工作正常，没有任何错误但实际的意图是将文件从一个文件夹复制到新创建的文件夹中，该文件夹在这种情况下不起作用有人可以看一下，让我知道任何修改，以获得所需的输出 Option Explicit Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objSTR, objEND, objTYP, objFILE Dim oFolder ofolder = "D:\Y

下面的代码工作正常，没有任何错误

但实际的意图是将文件从一个文件夹复制到新创建的文件夹中，该文件夹在这种情况下不起作用

有人可以看一下，让我知道任何修改，以获得所需的输出

Option Explicit
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objSTR, objEND, objTYP, objFILE
Dim oFolder

ofolder = "D:\YAS\BCKP" & " " & Day(date) & Month(date) & Year(date)
objFSO.CreateFolder(ofolder)

objTYP = "ofolder"
On Error Resume Next
objSTR = "D:\YAS\Data\"
objEND = objTYP

For Each objFILE in objFSO.GetFolder(objSTR).Files
objFILE.Copy objEND
Next
  
MsgBox "Finished", vbInformation