Office: PDF-Datei in der Listbox auswählen und Datei löschen

Guten morgen zusammen.

Ich habe folgenden Code in einer UserForm

Code:

Option Explicit

Const Ordnerpfad As String = "C:\test\" '<<< \ Schrägstrich am Ende nicht vergessen

Private Sub Datei_öffnen_Click()

End Sub

Private Sub TB_dateiname_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = 13 Then    '<== KeyCode 13 entspricht Enter
    ÖffnePDF Me.TB_dateiname
    Unload Me
    End If
End Sub

Sub ÖffnePDF(Dateiname As String)
    Dim i As Integer
    For i = LBound(DN) To UBound(DN)
        If LCase(DN(i)) = LCase(Dateiname) Then
            ActiveWorkbook.FollowHyperlink Pfad1(i)
            Exit Sub
        End If
    Next i
End Sub

Private Sub TB_dateiname_Change()
    If Datei_vorhanden(Me.TB_dateiname) = True Then
        Me.TB_dateiname.BackColor = RGB(0, 255, 0)
    Else
        Me.TB_dateiname.BackColor = RGB(255, 0, 0)
    End If
End Sub

Public Function Datei_vorhanden(Dateiname As String) As Boolean
    Dim i As Integer
    For i = LBound(DN) To UBound(DN)
        If LCase(DN(i)) = LCase(Dateiname) Then
            Datei_vorhanden = True
            Exit Function
        End If
    Next i
End Function

Private Sub UserForm_Activate()
    i = 0
    ReDim Pfad1(i)
    ReDim DN(i)
    fListFiles Ordnerpfad, True, "pdf"
End Sub

Damit wird mir in einer ListBox die PDF-Dateien angezeigt die in einem Ordner liegen. Durch doppelklick wird mir die ausgewählte Datei geöffnet. Das klappt alles genau so wie ich es möchte.

Nun möchte ich einen neuen Button einbauen über diesen ich dann die ausgewählte PDF-Datei löschen kann.

Wer kann mir da mal bitte weiter helfen.


Gruß Michael

 

Hallo Blacky1980,

um eine Datei von der Festplatte zu löschen, kannst Du den Befehl Kill verwenden (Kill C:\Test\Test.pdf), vorausgesetzt diese ist nicht in Benutzung, also z.B. nicht geöffnet.

Gruß

 

Hallo Maninweb

Danke für die Antwort.

Das problem ist nur das in der ListBox mehrere PDF-Dateien sind und wenn ich nun eine Datei auswähle ich diese aber nicht mehr benötige möchte ich diese löschen. Somit müßte ich den Code für jede Datei immer wieder neu anpassen. Ich dachte mir wenn ich nun in der ListBox eine Datei arkiere das durch drücken des buttons die Datei gelöscht wird und da leigt mein Problem.

ich weiß nicht wie ich den Code schreiben soll das er den Pfad und die Dateiendung fest hatt und nur den Dateiname aus der Listbox niemt oder auch den Pfad und die Endung von meinem obrigen Code.


Gruß Michael

 

Hallo Michael,

der Code, den Du oben gepostet hattest ist leider unvollständig, z.B. weiss ich nicht, wie die Listbox bei Dir heißt und
wie diese letztendlich gefüllt wird, also ob die Dateinamen da drin sind.

Normalerweise kannst Du auf ein angeklicktes Element per ListIndex zugreifen. In etwa sähe ein Dummy Code wie folgt
aus, den Du anpassen müsstest...

Code:

Private Sub CommandButton1_Click()


  Dim d As String
  Dim f As String
  
  If Not ListBox1.ListIndex < 0 Then
    
'   Datei...
    
    d = Ordnerpfad
    f = ListBox1.List(ListBox1.ListIndex, 0)
    
'   Datei löschen...
    
    Kill d & "\" & f
    
'   Element aus der Listbox...
    
    ListBox1.RemoveItem ListBox1.ListIndex
    ListBox1.ListIndex = 0
    
  End If
  
End Sub

Gruß

 

Hallo Maninweb

Danke für die antwort und den Hinweis!

Sorry ich habe einen falschen Code erwischt tut mir leid.

Hier der richtige Code für die UserForm

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   Dateiname = ListBox1.List(Me.ListBox1.ListIndex, 0)
   Call pdfAufruf
End Sub

Private Sub UserForm_Initialize()
Const Verz = "D:\Test\PDF-Dateien"
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei In FSO.getfolder(Verz).Files
    Me.ListBox1.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
    Me.ListBox1.AddItem Ordner.Name
Next
End Sub

Ich habe mich in der UserForm vertan. Das ist aber nun der richtige Code für die UserForm. Tut mir echt leid war keine absicht.

 

Hallo Maninweb

Vielen vielen danke habe den Code angepasst und er macht genau das was er soll.

Super klasse!!!


Gruß Michael

 

Hallo Michael,

bitte schön, gern geschehen :-)

Gruß