Dim NewPath As String
Sub CreateDir()
NewPath = Path.GetDirectoryName(Fs(0)) & "\New_" & Format(Now, "yyyyMMdd-HHmmss") & "\"
Directory.CreateDirectory(NewPath)
End Sub
Sub main()
Dim SavePath As String = NewPath & Path.GetFileName(FilePath)
IllDoc.SaveAs(SavePath, aiSaveOption)
If Not IllDoc Is Nothing Then ReleaseComObject(IllDoc)
End Sub
Public Function aiSaveOption() As IllustratorSaveOptions
Dim aiSO As IllustratorSaveOptions = New IllustratorSaveOptions
With aiSO
.Compatibility = AiCompatibility.aiIllustrator10
.PDFCompatible = False
.Compressed = False
.EmbedAllFonts = False
End With
Return aiSO
End Function