Option Explicit ' ドロップアウトするフォルダを指定しますConst sourceFolder = "Z:\Work\" ' 出力フォルダを指定しますConst outputFolder = "Z:\Work\" Dim objFSO, objFolder, objFileDim shell, newName, fileName ' File System Object を作成しますSet objFSO = CreateObject("Scripting.FileSystemObject") ' 出力フォルダが存在しない場合は作成しますIf Not objFSO.FolderE…