vbscript - 制作目录并复制文件

在VBS中，如何创建目录，然后将文件复制到其中？

我想在C的根目录下创建一个文件夹，例如C：\ folder，然后将文件从\ server \ folder \ file.ext复制到该新文件夹中

最佳答案

使用FileSystemObject对象，即其CreateFolder和CopyFile方法。基本上，这就是您的脚本的样子：

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

' Create a new folder
oFSO.CreateFolder "C:\MyFolder"

' Copy a file into the new folder
' Note that the destination folder path must end with a path separator (\)
oFSO.CopyFile "\\server\folder\file.ext", "C:\MyFolder\"

您可能还需要添加其他逻辑，例如检查要创建的文件夹是否已经存在（因为在这种情况下CreateFolder会引发错误），或者指定是否覆盖要复制的文件。因此，您可以得到以下结果：

Const strFolder = "C:\MyFolder\", strFile = "\\server\folder\file.ext"
Const Overwrite = True
Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite