nur bestimmte File-Endungen einlesen
13.06.2013 15:35:22
Pascal
Mittels folgendem Code lese ich alle vorhandenen Outlook-Signaturen ab meinem Profil in eine Userform und stelle diese in einer Listbox zur Auswahl zur Verfügung:
Private Sub UserForm_initialize()
Dim FSO_2 As Object
Dim Datei_2 As Object
Dim Unterordner_2 As Object
Dim vntTempArray_2 As Variant
UserForm5.Caption = "Outlook-Signatur"
UserForm5.Frame1.Caption = "Bitte wählen Sie die gewünschte Outlook-Signatur aus!"
UserForm5.CommandButton1.Caption = "Abbrechen"
UserForm5.CommandButton2.Caption = "Nachricht erstellen"
'alle Outlook-Signaturen des aktuellen Benutzers werden in die Combobox1 geladen
Set FSO_2 = CreateObject("Scripting.FileSystemObject")
Set Datei_2 = FSO_2.GetFolder(Environ("USERPROFILE") & "\AppData\Roaming\" & _
"Microsoft\Signatures\")
With UserForm7.ComboBox1
For Each Unterordner_2 In Datei_2.SubFolders
vntTempArray_2 = Split(Unterordner_4.Path, "\")
'.AddItem Replace(vntTempArray_2(7), "-Dateien", "")
.AddItem vntTempArray_2(7)
Next
End With
UserForm5.ComboBox1.ListIndex = 0
End Sub
Nun möchte ich aber den obigen Code so anpassen, dass mir bloss die Dateien (Signaturen) mit der Endung .htm in die Listbox eingelesen werden.
geht das irgendwie ?
Besten Dank für Eure Hilfe !