Imports System.IO Dim temDir As String = Path.GetTempPath & "\myTmp\" Directory.CreateDirectory(temDir) '〜処理〜 Directory.Delete(temDir, True)’ディレクトリを消さないと残ってしまう

'処理したいファイルを別ディレクトリにコピーするためのフォルダを新しく作成します Dim SaveDocDir As String = Path.GetDirectoryName(Fp(0)) & "\png_" & Format(Now(), "yyyyMMddHHmmss") & "\" MkDir(SaveDocDir)

Private Function getPDFSaveOptions() As PDFSaveOptions Dim options As PDFSaveOptions = New PDFSaveOptionsClass With options options.Compatibility = AiPDFCompatibility.aiAcrobat4 options.EmbedAllFonts = False options.GenerateThumbnails = Fa…

'PDFSaveOptionを設定する Dim PDFSaveOption As New PDFSaveOptions With PDFSaveOption .PreserveEditability = False .Compatibility = AiPDFCompatibility.aiAcrobat4 .EmbedAllFonts = False .GenerateThumbnails = False End With