web-dev-qa-db-ja.com

ディレクトリを作成してファイルをコピーする

VBSでは、どのようにしてディレクトリを作成し、そこにファイルをコピーしますか？

Cのルートにフォルダーを作成したいC：\ folderを開き、\ server\folder\file.extから新しいフォルダーにファイルをコピーします

vbscript
15
Arcath

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
34
Helen

この目的でシェルを使用できます。

Set shl = CreateObject("WScript.Shell") 
shl.Run "cmd mkdir YourDir" & copy "
1
Răducu's Computer