Datei anhängen und lösche
25.05.2016 11:52:40
Alex
ich habe einen CommandButton, mit dem ich eine Datei anhängen möchte.
Funktioniert auch soweit.
Problem: Wenn ich die Datei lösche, bleibt der Pfad stehen. Wie kann ich das umgehen?
Private Sub CommandButton5_Click()
' varDatei = Application.GetOpenFilename()
If CommandButton5.Caption = "Datei anhängen" Then
CommandButton5.Caption = "Datei löschen"
varDatei = Application.GetOpenFilename()
Else
CommandButton5.Caption = "Datei anhängen"
varDatei = ""
End If
If varDatei = "Falsch" Then
varDatei = ""
CommandButton5.Caption = "Datei anhängen"
End If
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad False Then
TextBox15 = strPfad
End If
End Sub
Alex
Anzeige