WSH/ファイルまたはフォルダーを別の場所にコピーする・Copy

• Prev
• Next
• WSH

ファイルまたはフォルダーを別の場所にコピーする・Copyメソッド †

FileSystemObjectのCopyメソッドを使うことにより、ファイルまたはフォルダーを別の場所(同一のディレクトリでも可能)にコピーすることできます。
本資料は、FileSystemObjectのCopyメソッドを利用してカレントディレクトリにファイルおよびフォルダを別名でコピーする、VBScriptサンプルコードと実行結果を記しています。

関連記事 †

• ファイルを新規に作成しテキストを書き込むサンプルコード
• 既存ファイルをにテキストを追加書き込みするサンプルコード
• ファイルの削除を行う方法・DeleteFile
• ファイルの存在チェックを行う・FileExists
• フォルダの存在チェックを行う・FolderExists
• フォルダーのコピー・CopyFolder
• ファイルを行単位で読み込む方法・ReadLineメソッド
• フルパスファイル名からファイル名のみ取り出す方法

Copyメソッドを使用したVBScriptのサンプルコードと実行結果 †

以下にFileSystemObjectのCopyメソッドを使用したVBScriptのサンプルコードと実行結果を記します。

Copyメソッドを使用したVBScriptサンプルコード †

copy.vbs

Set fso = CreateObject("Scripting.FileSystemObject")

' Create file
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set tso = fso.OpenTextFile("file.txt", ForWriting, true)
tso.WriteLine("hello world")
tso.Close
Set tso = Nothing

' Create folder
fso.CreateFolder("folder")


' Copy Method (file)
Set f = fso.GetFile("file.txt")
f.Copy("copy_file.txt")
Set f = Nothing

' Copy Method (folder)
Set f = fso.GetFolder("folder")
f.Copy("copy_folder")
Set f = Nothing

Set fso = Nothing

上記サンプルコードはOpenTextFileメソッドにより新規に作成したfile.txtファイルとCreateFolderメソッドで新規に作成したフォルダをFileSystemObjectのCopyメソッドを使いコピーしています。
パスを指定していないので、カレントディレクトリで動作します。
Copyメソッドの動作は同一のディレクトリに別名でコピーする動作になります。

Copyメソッドを使用したVBScriptサンプルコード実行結果 †

• サンプルコード実行前の状態

  C:\wsh\copy>dir
   ドライブ C のボリューム ラベルは Windows です
   ボリューム シリアル番号は 1234-5678 です
  
   C:\wsh\copy のディレクトリ
  
  2012/07/28  14:56    <DIR>          .
  2012/07/28  14:56    <DIR>          ..
  2012/07/28  14:53               513 copy.vbs
                 1 個のファイル                 513 バイト
                 2 個のディレクトリ  114,696,228,864 バイトの空き領域

• サンプルコード実行

  C:\wsh\copy>cscript /nologo copy.vbs

• サンプルコード実行後の状態

  C:\wsh\copy>dir
   ドライブ C のボリューム ラベルは Windows です
   ボリューム シリアル番号は 1234-5678 です
  
  C:\wsh\copy のディレクトリ
  
  2012/07/28  14:56    <DIR>          .
  2012/07/28  14:56    <DIR>          ..
  2012/07/28  14:53               513 copy.vbs
  2012/07/28  14:56                13 copy_file.txt
  2012/07/28  14:56    <DIR>          copy_folder
  2012/07/28  14:56                13 file.txt
  2012/07/28  14:56    <DIR>          folder
                 3 個のファイル                 539 バイト
                 4 個のディレクトリ  114,696,224,768 バイトの空き領域