Excel VBAを利用した特定のサイズ以上のファイルの移動方法

この記事では、Excel VBAを使用して特定のサイズ以上のファイルを別のドライブに移動する方法について詳しく説明します。具体的なコード例とその詳細な解説、さらに応用例を取り上げます。これを通して、Excel VBAの実用的な活用方法を深く理解していただけます。

基本コード: 特定のサイズ以上のファイルを移動

Sub MoveLargeFiles()
    Dim SourceFolder As String, DestinationFolder As String
    Dim objFSO As Object, objFolder As Object, objFile As Object
    Dim FileSize As Double

    ' ソースとなるフォルダのパスと、移動先のフォルダのパスを指定
    SourceFolder = "C:\SourcePath"
    DestinationFolder = "D:\DestinationPath"

    ' FileSystemObjectを使用
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(SourceFolder)

    ' 指定したサイズ（ここでは100MB）以上のファイルを移動
    For Each objFile In objFolder.Files
        If objFile.Size > 100 * 1024 * 1024 Then
            objFile.Move DestinationFolder & "\" & objFile.Name
        End If
    Next objFile

    ' オブジェクトを解放
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

コードの詳細解説

1. **FileSystemObject**: VBAに組み込みで提供されている、ファイルやフォルダを操作するためのオブジェクトです。
2. **SourceFolder と DestinationFolder**: それぞれ移動元と移動先のフォルダを指定します。
3. **objFile.Size > 100 * 1024 * 1024**: この条件式で、ファイルサイズが100MBより大きいかどうかをチェックしています。

応用例

1. 特定の拡張子のファイルのみを移動

For Each objFile In objFolder.Files
    If objFile.Size > 100 * 1024 * 1024 And objFSO.GetExtensionName(objFile.Name) = "mp4" Then
        objFile.Move DestinationFolder & "\" & objFile.Name
    End If
Next objFile

この応用例では、ファイルサイズが100MBを超えるMP4ファイルのみを移動します。

2. ログファイルの生成

Dim logFile As Object
Set logFile = objFSO.CreateTextFile(DestinationFolder & "\log.txt", True)

For Each objFile In objFolder.Files
    If objFile.Size > 100 * 1024 * 1024 Then
        objFile.Move DestinationFolder & "\" & objFile.Name
        logFile.WriteLine "Moved: " & objFile.Name
    End If
Next objFile

logFile.Close

移動したファイルのリストをログとして保存します。

3. 既存のファイルを上書きしない

For Each objFile In objFolder.Files
    If objFile.Size > 100 * 1024 * 1024 And Not objFSO.FileExists(DestinationFolder & "\" & objFile.Name) Then
        objFile.Move DestinationFolder & "\" & objFile.Name
    End If
Next objFile

移動先のフォルダに同じ名前のファイルが存在しない場合のみ、ファイルを移動します。

まとめ

Excel VBAを使用して、特定の条件を満たすファイルを効率的に移動する方法について学びました。このテクニックを使用することで、日常の作業を自動化し、生産性を向上させることができます。