Excel VBAのScripting Runtime Library：ファイルシステムの操作を強化するツール

Sub CreateAndWriteFile()
    ' Scriptingライブラリの参照設定が必要
    ' 参照設定: Microsoft Scripting Runtime

    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject

    ' ファイルの作成
    Dim filePath As String
    filePath = "C:\temp\example.txt"
    Dim file As Scripting.TextStream
    Set file = fso.CreateTextFile(filePath, True)

    ' ファイルに書き込み
    file.WriteLine "Hello, this is a test file!"
    file.WriteLine "This file is created using Scripting Runtime Library."

    ' ファイルを閉じる
    file.Close

    MsgBox "ファイルが作成され、内容が書き込まれました。", vbInformation, "完了"
End Sub

Sub ReadFile()
    ' Scriptingライブラリの参照設定が必要
    ' 参照設定: Microsoft Scripting Runtime

    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject

    ' ファイルのパスを指定
    Dim filePath As String
    filePath = "C:\temp\example.txt"
    
    ' ファイルの存在を確認
    If fso.FileExists(filePath) Then
        Dim file As Scripting.TextStream
        Set file = fso.OpenTextFile(filePath, ForReading)
        
        ' ファイルの内容を読み込み
        Dim fileContent As String
        fileContent = file.ReadAll
        
        ' ファイルを閉じる
        file.Close
        
        MsgBox "ファイルの内容:" & vbCrLf & fileContent, vbInformation, "ファイル読み込み"
    Else
        MsgBox "ファイルが存在しません。", vbExclamation, "エラー"
    End If
End Sub

Sub CreateAndDeleteFolder()
    ' Scriptingライブラリの参照設定が必要
    ' 参照設定: Microsoft Scripting Runtime

    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject

    ' フォルダのパスを指定
    Dim folderPath As String
    folderPath = "C:\temp\testFolder"
    
    ' フォルダの作成
    If Not fso.FolderExists(folderPath) Then
        fso.CreateFolder(folderPath)
        MsgBox "フォルダが作成されました。", vbInformation, "完了"
    Else
        MsgBox "フォルダは既に存在します。", vbExclamation, "情報"
    End If
    
    ' フォルダの削除
    If fso.FolderExists(folderPath) Then
        fso.DeleteFolder(folderPath)
        MsgBox "フォルダが削除されました。", vbInformation, "完了"
    Else
        MsgBox "フォルダが存在しません。", vbExclamation, "エラー"
    End If
End Sub

Sub CopyAndMoveFile()
    ' Scriptingライブラリの参照設定が必要
    ' 参照設定: Microsoft Scripting Runtime

    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject

    ' 元のファイルのパス
    Dim sourceFilePath As String
    sourceFilePath = "C:\temp\example.txt"

    ' コピー先のファイルのパス
    Dim destFilePath As String
    destFilePath = "C:\temp\copy_example.txt"

    ' ファイルのコピー
    If fso.FileExists(sourceFilePath) Then
        fso.CopyFile sourceFilePath, destFilePath, True
        MsgBox "ファイルがコピーされました。", vbInformation, "完了"
    Else
        MsgBox "元のファイルが存在しません。", vbExclamation, "エラー"
    End If

    ' 移動先のファイルのパス
    Dim moveFilePath As String
    moveFilePath = "C:\temp\moved_example.txt"

    ' ファイルの移動
    If fso.FileExists(destFilePath) Then
        fso.MoveFile destFilePath, moveFilePath
        MsgBox "ファイルが移動されました。", vbInformation, "完了"
    Else
        MsgBox "コピーされたファイルが存在しません。", vbExclamation, "エラー"
    End If
End Sub