ファイルをコピーする方法

◆概要

このページは、Visual Basic 6.0でファイルをコピーする方法について記載しています。


Visual Basic 6.0でファイルをコピーする方法には、FileCopy 関数を使用する方法とFileSystemObject (FSO) の CopyFile メソッドを使用する方法があります。FileSystemObject の CopyFile メソッドの使用が推奨されています。

◆SFileSystemObject (FSO) の CopyFile メソッドを使用する方法

VBからファイルシステムオブジェクトを使うために、[プロジェクト]メニューの[参照設定]ダイアログボックスで、[Microsoft Scripting Runtime]を選択しておきます。 

Private Sub Command1_Click()
    Dim colFilesystem As Object
    Dim strSrcName  As String
    Dim strDestName As String
    
    'ファイルシステムオブジェクトへの参照
    Set colFilesystem = CreateObject("Scripting.FileSystemObject")
    
    ' カレントフォルダからカレントドライブのworkフォルダへコピー
    strSrcName = "Readme.txt"
    strDestName = "\work\"
    colFilesystem.CopyFile strSrcName, strDestName
    
    ' 拡張子がbakのファイルをすべてworkフォルダへコピー
    strSrcName = "*.bak"
    strDestName = "\work\"
    colFilesystem.CopyFile strSrcName, strDestName
    
    ' オブジェクトを解放
    Set colFilesystem = Nothing

End Sub
　　

◆FileCopy 関数を使用する方法 

Private Sub Command2_Click()
    Dim strSrcName  As String
    Dim strDestName As String

    ' カレントフォルダからWorkフォルダへコピー
    strSrcName = "Readme.txt"
    strDestName = "\Work\Readme.txt"
    FileCopy strSrcName, strDestName

End Sub
　　


▼ページトップへ