Hallo Zusammen,
ich habe ein kleines Tool, welches mir in einem festen Pfad PDF-Dateien mittels Suchbegriff findet und in einer Listbox darstellt. Hier wird dann durch Markieren die gewünschte PDF in einen anderen Ordner kopiert und die Dateigröße ausgelesen. Dies wird dann in einer Messagebox gemeldet.
Was mir jetzt noch fehlt, ist das Auslesen der PDF-Seitenzahl. Laut Recherche geht dies auf der Kommandozeile mit "Findstr"
Mit findstr /B /C:"/Count" *.pdf auf der Kommandozeile funktioniert das auch.
Wie bekommen ich den Befehl in meinen Code rein, sodass er mit "findstr /B /C:"Count" listbox1.selecteditem" die Datei durchsucht.
Ich weiß, ich werde keinen fertigen Code bekommen, da hier viel Wert auf Eigeninitiative gelegt wird. Dies finde ich auch durchaus begrüßenswert. Ich bin aber ein absoluter Anfänger, der einfach nur versucht, sich paar Sachen zusammenzubauen.
Ein Teil meines Codes schaut wie folgt aus.
Seid gnädig
Gruß Madde
ich habe ein kleines Tool, welches mir in einem festen Pfad PDF-Dateien mittels Suchbegriff findet und in einer Listbox darstellt. Hier wird dann durch Markieren die gewünschte PDF in einen anderen Ordner kopiert und die Dateigröße ausgelesen. Dies wird dann in einer Messagebox gemeldet.
Was mir jetzt noch fehlt, ist das Auslesen der PDF-Seitenzahl. Laut Recherche geht dies auf der Kommandozeile mit "Findstr"
Mit findstr /B /C:"/Count" *.pdf auf der Kommandozeile funktioniert das auch.
Wie bekommen ich den Befehl in meinen Code rein, sodass er mit "findstr /B /C:"Count" listbox1.selecteditem" die Datei durchsucht.
Ich weiß, ich werde keinen fertigen Code bekommen, da hier viel Wert auf Eigeninitiative gelegt wird. Dies finde ich auch durchaus begrüßenswert. Ich bin aber ein absoluter Anfänger, der einfach nur versucht, sich paar Sachen zusammenzubauen.
Ein Teil meines Codes schaut wie folgt aus.
Seid gnädig
VB.NET-Quellcode
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If ListBox1.SelectedItem Is Nothing Then
- MessageBox.Show("Die gewünschte Akte muss markiert sein", "Akte markieren", MessageBoxButtons.OK, MessageBoxIcon.Information)
- ElseIf ListBox1.Items.Count = 0 Then
- MessageBox.Show(Me, "Es wurde keine Akte geladen", "Keine Auswahl", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Else
- Dim fi As New System.IO.FileInfo(ListBox1.SelectedItem)
- Label3.Text = Math.Round(fi.Length / 1024 / 1024, 2) & " MB"
- IO.File.Copy(ListBox1.SelectedItem.ToString, ".\Daten\Versandordner\" & IO.Path.GetFileName(ListBox1.SelectedItem.ToString))
- MessageBox.Show(Me, "Die Akte wurde erfolgreich gespeichert" & vbCrLf & vbCrLf & "Die Größe der Datei beträgt: " & Label3.Text & vbCrLf & vbCrLf & "Die Seitenanzahl beträgt: " & "kommt noch", "Erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- End Sub
Gruß Madde