ファイルを移動させる方法

◆概要

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


ファイルシステムオブジェクトに含まれるMoveFile メソッドを使うことで、ファイルを指定場所へ移動できます。

◆Sample code 

Private Sub Command1_Click()
    Dim colFilesystem As Object
    Dim strOldPath As String
    Dim strNewPath As String
    
    Set colFilesystem = CreateObject("Scripting.FileSystemObject")
    
    strOldPath = "Readme.txt"
    strNewPath = "D:\work\"
    
    'カレントフォルダのReadme.txtをD:\workフォルダへ移動させる
    colFilesystem.MoveFile strOldPath, strNewPath
    
    strOldPath = "*.bak"
    strNewPath = "D:\work"
    
    '拡張子がbakのファイルをすべてD:\workフォルダへ移動させる
    colFilesystem.MoveFile strOldPath, strNewPath

    'オブジェクトを解放
    Set colFilesystem = Nothing
End Sub
　　


▼ページトップへ