Dateitypen mit verschiedenen Anwendungen öffnen

  • VB.NET

Es gibt 42 Antworten in diesem Thema. Der letzte Beitrag () ist von Doener.

    Dateitypen mit verschiedenen Anwendungen öffnen

    Hallo,

    ich habe eine Listebox, welche mir PDFs auflistet, beim klicken auf ansehen den Adobe Reader startet und beim beenden von diesem die Datei löscht. Erweitere ich nun das ganze um den Dateityp txt, passiert nichts - logisch, weil kein Programm definiert ist - und die Datei wird einfach gelöscht. Wie bekomme ich es hin, das verschiedene Dateitypen mit fest definierten Programmen aufgerufen werden? Ein einfacher Aufruf mit process.start kommt nicht in Frage, da ich den laufenden Prozess überwache musss, wegen dem Löschen am Ende. Darum brauche ich feste Namen

    Danke




    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Share
    5. 　
    7. Private Sub Aktualisieren_Click(sender As Object, e As EventArgs) Handles Aktualisieren.Click, Aktualisieren.Click
    9. If System.IO.File.Exists("C:\Justiz\share.txt") Then 'Prüfen ob Konfig Datei vorhanden ist
    11. Else
    13. MessageBox.Show("Die Konfigurationsdatei für den Pfad des Shares ist nicht vorhanden oder nicht im selben Ordner wie das Programm.")
    15. End If
    17. 　
    19. Dim SharePfad As String
    21. SharePfad = My.Computer.FileSystem.ReadAllText("C:\Justiz\share.txt")
    23. Dim directory As New System.IO.DirectoryInfo(SharePfad)
    25. For Each file1 As System.IO.FileInfo In directory.GetFiles
    27. If file1.Extension = ".pdf" Or file1.Extension = ".PDF" Then
    29. ListBox1.Items.Add(file1.FullName)
    31. End If
    35. Next
    37. ListBox1.Sorted = True
    39. For i As Integer = ListBox1.Items.Count - 1 To 1 Step -1
    41. If ListBox1.Items(i).ToString = ListBox1.Items(i - 1).ToString Then ListBox1.Items.RemoveAt(i)
    43. Next
    45. Ansehen.Enabled = True
    47. ListBox1.SelectedIndex = 0
    49. End Sub
    51. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Ansehen.Click
    53. If ListBox1.SelectedItem Is Nothing = False Then
    55. Process.Start(ListBox1.SelectedItem)
    57. 　
    59. 　
    61. End If
    63. Dim AdobeProcess As String = "AcroRd32"
    65. For Each Prozess As Process In Process.GetProcesses()
    67. Next
    69. If Process.GetProcessesByName(AdobeProcess).Count > 0 Then
    71. If MsgBox("Die angezeigte Date wird nach dem Schließen des Adobe Readers gelöscht!", vbOKOnly, "Hinweis") = vbOK Then
    73. Me.Hide()
    75. Else
    77. End If
    79. End If
    81. 　
    83. Do
    85. If Process.GetProcessesByName(AdobeProcess).Count > 0 Then
    87. Else
    89. Exit Do
    91. End If
    93. Loop
    95. 　
    97. 'MsgBox("Die angezeigte Datei wird nun gelöscht!", MsgBoxStyle.Information, "Hinweis")
    99. My.Computer.FileSystem.DeleteFile(ListBox1.SelectedItem) 'geht nicht: wird von anderem Prozess verwendet
    101. 　
    103. 　
    105. 　
    107. Me.Close()
    109. End Sub
    111. 　
    113. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Beenden.Click
    115. Me.Close()
    117. End Sub
    119. Private Sub Share_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    121. Ansehen.Enabled = False
    123. End Sub
    129. End Class

    Doener schrieb:

    VB.NET-Quellcode

    1. If file1.Extension = ".pdf" Or file1.Extension = ".PDF" Then
    Mach das so:

    VB.NET-Quellcode

    1. If file1.Extension.ToLower() = ".pdf" Then
    Ist bei Dir die Extension "txt" nicht mit dem Notepad verknüpft?
    Dann so:

    VB.NET-Quellcode

    1. Dim pr As New Process
    2. pr.StartInfo.FileName = "Notepad.exe"
    3. pr.StartInfo.Arguments = "c:\Temp\test.txt"
    4. pr.Start()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ursprünglich stand da

    VB.NET-Quellcode

    1. If file1.Extension = ".pdf" Or file1.Extension = ".txt" Then


    aber da bin ich ja in das Problem reingelaufen -darum habe ich ja es nur PDF Only gestellt, um das Löschen zu verhindern.

    Also einfach das ganze in eine IF Funktion einbauen?

    Doener schrieb:

    Ursprünglich stand da
    Ich meinte die Groß- und Kleinschreibung.
    Sieh Dir mal dies an:

    VB.NET-Quellcode

    1. Dim datei = "c:\Temp\Test.txt"
    2. Dim extension = System.IO.Path.GetExtension(datei).ToLower
    3. Dim pr As New Process
    4. Select Case extension
    5. Case ".pdf"
    6. pr.StartInfo.FileName = datei
    7. Case ".txt"
    8. pr.StartInfo.FileName = "Notepad.exe"
    9. pr.StartInfo.Arguments = datei
    10. Case ".doc"
    11. pr.StartInfo.FileName = datei
    12. Case Else
    13. MessageBox.Show("Neue Extension")
    14. Return
    15. End Select
    16. pr.Start()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke

    Wie kann ich verhindern, das meine Schleife zu viel Last erzeugt?

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Ansehen.Click
    3. If ListBox1.SelectedItem Is Nothing = False Then
    5. Process.Start(ListBox1.SelectedItem)
    7. 　
    9. 　
    11. End If
    13. Dim AdobeProcess As String = "AcroRd32"
    15. For Each Prozess As Process In Process.GetProcesses()
    17. Next
    19. If Process.GetProcessesByName(AdobeProcess).Count > 0 Then
    21. If MsgBox("Die angezeigte PDF-Datei wird nach dem Schließen des Adobe Readers gelöscht!", vbOKOnly, "Hinweis") = vbOK Then
    23. Me.Hide()
    25. 　
    27. End If
    29. Else
    31. 　
    33. 　
    35. ' MsgBox("Die angezeigte TXT-Datei wird nach dem Schließen des Adobe Readers nicht gelöscht!", vbOKOnly, "Hinweis")
    37. ' Me.Hide()
    39. 　
    41. End If
    43. 　
    45. Do
    47. If Process.GetProcessesByName(AdobeProcess).Count > 0 Then
    49. Else
    51. Exit Do
    53. End If
    55. Loop
    57. 　
    59. 'MsgBox("Die angezeigte Datei wird nun gelöscht!", MsgBoxStyle.Information, "Hinweis")
    61. My.Computer.FileSystem.DeleteFile(ListBox1.SelectedItem) 'geht nicht: wird von anderem Prozess verwendet
    63. 　
    65. 　
    67. 　
    69. Me.Close()
    71. End Sub



    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Doener“ ()

    Doener schrieb:

    zu viel Last
    Nutze einen Timer.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe nun auf meinem PC bei der Ausführung fast keine Last mehr. Führe ich es allerdings in einer Terminalserversitzung aus, kann ich das Fenster nicht verschieben, ohne das de Fenster Inhalt dahinter sichtbar bleibt, also das Bild vom aktiven Fenster bleibt an der Stelle wie festgefroren oder einfach nur weiss. Woran liegt das?

    mit appliation.doevents ist das Problem zwar weg, aber die Auslastung liegt bei 100%

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Doener“ ()

    Doener schrieb:

    Woran liegt das?
    Weil der Hauptthread Deines Programms ausgelastet ist und auf Eingaben nicht mehr reagieren kann.
    Bevor Du nun weiter alles verschlimmbesserst, solltest Du uns sageb, was genau Du eigentlich vor hast.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich starte die ausgewählte Datei aus der Listbox und öffne diese mit dem Adobe Reader. Beim Öffnen wird ein Hinweis angezeigt, das die Datei nach dem schließen vom AR gelöscht wird. Dazu überprüfe ich per Schleife, ob der Task noch vorhanden ist. Wenn nicht, dann soll die Datei sofort gelöscht werden.

    Ich habe für diese Funktion 2 Probleme.

    1: Während der Überprüfung, ob der Task noch läuft, belegt die Schleife auf einem single Core System annähernd 95%, was zur Folge hat, das ich nicht sinnvoll die Fenster verschieben kann. Mit doEvents geht dies, aber zu lasten der CPU mit 100%

    2. Ich würde gerne eine msgbox anzeigen, ohne das zuvor das andere Fenster noch sichtbar ist.

    Mache ich

    VB.NET-Quellcode

    1. If MsgBox("Die angezeigte PDF-Datei wird nach dem Schließen des Adobe Readers gelöscht!", vbOKOnly, "Hinweis") = vbOK Then
    3. Me.Hide()


    dann habe ich die msg box im Vordergrund, aber man sieht bis zum OK Klick auch das andere fenster. Ziehe ich das me.hide vor, dann ist das Fenster weg, aber die msgbox hinter dem AR.

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Ansehen.Click
    3. If ListBox1.SelectedItem Is Nothing = False Then
    5. Process.Start(ListBox1.SelectedItem)
    7. End If
    9. Dim AdobeProcess As String = "AcroRd32"
    11. For Each Prozess As Process In Process.GetProcesses()
    13. Next
    15. If Process.GetProcessesByName(AdobeProcess).Count > 0 Then
    17. If MsgBox("Die angezeigte PDF-Datei wird nach dem Schließen des Adobe Readers gelöscht!", vbOKOnly, "Hinweis") = vbOK Then
    19. Me.Hide()
    21. End If
    23. Else
    25. ' MsgBox("Die angezeigte TXT-Datei wird nach dem Schließen des Adobe Readers nicht gelöscht!", vbOKOnly, "Hinweis")
    27. ' Me.Hide()
    29. End If
    31. Do
    33. If Process.GetProcessesByName(AdobeProcess).Count > 1 Then
    35. Else
    37. Exit Do
    39. End If
    41. Application.DoEvents()
    43. Loop
    45. 'MsgBox("Die angezeigte Datei wird nun gelöscht!", MsgBoxStyle.Information, "Hinweis")
    47. My.Computer.FileSystem.DeleteFile(ListBox1.SelectedItem) 'geht nicht: wird von anderem Prozess verwendet
    49. Me.Close()
    51. End Sub


    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Doener“ ()

    @Doener Beim Lesen Deines Codes bekommt man ja Augenkrebs.
    Kannst Du bitte mal die überflüssigen Leerzeichen rausmachen?
    Ansonsten ist über dem Post-Edit-Feld eine CheckBox "Quellcode".
    Erst den sprachspezifischen Code-Tag generieren,
    dann auf Quellcode umschalten,
    dann den Code einfügen,
    dann absenden.
    -----
    Was willst Du überhaupt machen / erreichen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Was willst Du überhaupt machen / erreichen?
    Also noch nicht

    Doener schrieb:

    erledigt

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das habe ich doch....meine Lösung ist funktionell 1A - nur technisch nicht ganz sauber. wie soll ich erklären, was ich machen will, wenn es funktioniert und so bleiben soll? Es soll ja nur das MSG Box Problem und die Fensterproblematik gelöst werden.

    Doener schrieb:

    Das habe ich doch
    Meinst Du dies:
    Ich möchte per Process sin Proggramm starten mit ieiner Datei als Argument, und nach Beendigung dieses Prozesses soll die Argument-Datei gelöscht werden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    MsgBox() <- PÖSE, NEU -> MessageBox.Show(), mische nicht .NET und VB6.
    Du wolltest doch oben mehrere Dateitypen prüfen, dir wurde select case vorgeschlagen weils einfach auch übersichtlicher und performanter ist als das ewige if.....end if
    Irgendwie postet du schon 3x den selben Code ohne verbesserung.

    Beispiel für eine MessageBox
    MessageBox.Show("Das ist meine Wichtige Mitteilung", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Snaptu“ ()

    @Rod. Das habe ich nicht geschrieben. Alles steht im Posting 12

    @Snaptu: Messagebox löst das Problem nicht. Die Box verschwindet auch in den Hintergrund, wenn hide.me vorher kommt. Kommt hide.me hinterher, bleibt das vorherige Fenster offen, bis ich OK klicke.

    Doener schrieb:

    Das habe ich nicht geschrieben
    Das weiß ich, denn ich habe das geschrieben. :rolleyes:
    Dättest Du es geschrieben, hätte ich Dich zitiert.
    Ist das sinngemäß das, was Dir vorschwebt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende