ファイルの種類や日付に基づいて、フォルダを自動的に整理することも可能です。例えば、ダウンロードフォルダに保存されたファイルを、日付ごとにフォルダ分けしたり、ファイルの種類ごとにフォルダに移動させたりすることができます。

3. フォルダ整理の自動化

このコードは、指定されたベースパスに、配列で指定された複数のフォルダを作成します。フォルダ名は、folderNames配列で自由に設定できます。

Set fso = Nothing

MsgBox “”フォルダの作成が完了しました。””

MkDir baseFolderPath & folderNames(i)

Next i

For i = 0 To UBound(folderNames)

folderNames = Array(“”顧客A””

baseFolderPath = “”C:Usersユーザー名DocumentsCustomers”” ‘ フォルダを作成するベースパス

Set fso = CreateObject(“”Scripting.FileSystemObject””)

Dim baseFolderPath As String

Dim folderNames As Variant

Sub CreateMultipleFolders()

Dim fso As Object

プロジェクトごとに新しいフォルダを作成する必要がある場合、VBAを使用すれば、複数のフォルダを一括で作成できます。例えば、顧客ごとにフォルダを作成し、顧客情報を整理する場合などに役立ちます。

このコードは、指定されたフォルダを、現在の日付を名前としたフォルダにバックアップします。タスクスケジューラを使用して、このマクロを定期的に実行するように設定できます。

2. 複数のフォルダの一括作成

Set fso = Nothing

MsgBox “”バックアップが完了しました。””

fso.CopyFolder sourceFolder

‘ ファイルのコピー

End If

MkDir backupFolder