VB6フォルダをコピーする

スポンサーリンク

VB6 では、FileSystemObject (FSO) の CopyFolder メソッドを使用します。

FileSystemObject を使用する場合は、[プロジェクト] メニューの [参照設定] を選択して「Microsoft Scripting Runtime」にチェックを付けてください。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' FileSystemObject (FSO) の新しいインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' ディレクトリをコピーする
    Call cFso.CopyFolder("C:\Hoge", "C:\Foo\Hoge", False)

    ' 既に同名のディレクトリが存在していても上書きする
    Call cFso.CopyFolder("C:\Hoge", "C:\Foo\Hoge", True)
    Call cFso.CopyFolder("C:\Hoge", "C:\Foo\Hoge") '第 3 引数を省略しても良い

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

関連するリファレンス

準備中です。

スポンサーリンク