#folderexists

例えばフォルダになんらかのファイルを保存するマクロを作るとして、そのフォルダがないからといってマクロが止まってしまっては不便です。

そこで、今回はフォルダがあるかを調べ、なければ追加するコードを、売上表のマクロに追加していきます。

さっそくコードです。

   Set fso = CreateObject("Scripting.FileSystemObject")

   If Not fso.FolderExists(folder_path) Then        fso.CreateFolder (folder_path)    End If

まず最初に、外部ライブラリを使用するために、FileSystemObjectを生成します。

そしてそれを使って、FolderExistsでフォルダがあるかを確認し、なければ作成するようにしています。