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

Answer 2

您可以将shell用于此目的。

Set shl = CreateObject("WScript.Shell") 
shl.Run "cmd mkdir YourDir" & copy "

创建目录并复制文件

2 个答案: