Code: Select all
If ofd.ShowDialog() = DialogResult.OK Then
For Each s As String In ofd.FileNames
txtarchivpfad.Text = s
SetPDF_ID(txtarchivpfad.Text)
Dim pver As XCPro40_Defs.PXC_SpecVersion
If XCPro40_Defs.PXCp_GetSpecVersion(PdfID, pver) >= 0 Then
MsgBox(pver)
ListBox1.Items.Add("INDEX: " & pver & " DATEI: " & s)
End If
Next
End If
thank you in advance, yvonne
(in the search function, I have not found a topic, sorry if I have overlooked something)