Question

我已经创建了一个程序来修改.pdf文件的安全设置。

这适用于一个文件 - 但我希望只需按一个按钮即可编辑多个.pdf，并且正在努力使其正常工作。

我已粘贴下面的GUI代码，＆＃34; Modify_PDF＆＃34;是运行pdf安全修改代码的模块。是否可以从此处通过此模块运行多个文件？

Dim source_file As String = ""

'''   Handles clicking of the 'Open file' button
Private Sub open_button_Click(sender As System.Object, e As System.EventArgs) Handles open_button.Click

    Dim input As FileStream = Nothing

    'Set filter to only allow compatible files
    OpenFileDialog.Filter = "PDF documents (*.pdf)|*.pdf"
    'Allow multiple files to be opened
    OpenFileDialog.Multiselect = True

    'open the file selection dialogue
    If OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

        Try
            input = OpenFileDialog.OpenFile()
        Catch Ex As Exception
            MsgBox("Error opening file: " & vbCrLf & Ex.Message)
        Finally
            'Check this again to ensure no exception on open. 
            If (input IsNot Nothing) Then
                input.Close()
            End If
        End Try

        If input IsNot Nothing Then
            source_file = OpenFileDialog.FileName
            If Modify_PDF.process_file(source_file, "") Then
                PDF_name.Text = Path.GetFileName(OpenFileDialog.FileName)

                input.Close()
                modify_button.Enabled = Modify_PDF.process_file(source_file, "") 'Allow report to be created if processing succeeds
            End If
        End If

    End If

End Sub



'''   Handles clicking of the 'Modify PDF' button
Private Sub generate_button_Click(sender As System.Object, e As System.EventArgs) Handles modify_button.Click
    Modify_PDF.modify_pdf(source_file, source_file, "")
End Sub

Answer 1

试试这样：

If OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

    Try
         For Each FileName as String in OpenFileDialog.FileNames
             'Do something with the filename here
         Next
    Catch ...

允许通过一个模块处理多个文件

1 个答案: