创建目录并复制文件

Question

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

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

Answer 1

使用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