Dim A As String, x As Integer, B As String
Dim Fluke As String
 
Caption = "Fluke Logfile lesen"
 
B = Format(Now, "ddmmyy")
 
File1.Path = LogPfad
File1.Pattern = "Fluke*.Log"
For x = 0 To File1.ListCount - 1
Combo1.AddItem File1.List(x)
Next x
Combo1.ListIndex = 0