このエントリーをはてなブックマークに追加


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

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


関連記事

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

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

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

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 バイトの空き領域


添付ファイル: filecopy.vbs 497件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:50:34