Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実行される e.Effect = DragDropEf…

Dim Res As Integer Res = MsgBox("ファイル数がすんごく多いです。" & vbCrLf & "リストボックスに入れると時間かかるよ。", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "どうする？") If Res = MsgBoxResult.Yes Then OutPutListBox() ElseIf Res = MsgB…

Imports System.IO If GetAttr(FName) = FileAttribute.Directory Then 'フォルダなら TextBox1.Text = FName Else 'ファイルなら</p> 'ファイルの１つ上のフォルダのパスをテキストボックスに入れる。 TextBox1.Text = Path.GetDirectoryName(FName) End If

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