Dateiendung per Textbox auslesen
21.08.2003 20:16:32
Claus
Ich brauche beim Auslesen einer Textbox Hilfe. In einer Userform ist eine Textbox mit dem Namen TextBoxFree. Dort soll der Anwender die zu suchende Dateiendung eingeben (z.B.: acm oder cdd oder abc) und dann sollen die gefundenen Dateienamen in die Tabelle kopiert werden. Bei den mso-Typen klappt das auch. Lese ich die Box falsch aus? Wie mache ich es richtig? Danke für eure Hilfe...
With Application.FileSearch
.NewSearch
.LookIn = verz
If chkverz.Value = False Then
.SearchSubFolders = False
Else
.SearchSubFolders = True
End If
If optexcel.Value = True Then
.FileType = msoFileTypeExcelWorkbooks
End If
If optfree.Value = True Then
.FileType = TextBoxFree
End If
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Code eingefügt mit Syntaxhighlighter 2.4