Private Sub getStopWordListFromFolder(ByVal strPath As String)
  Dim strFile As String
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  Stopwordlist.Clear
  strFile = Dir(strPath & "*.txt", vbNormal)
  While strFile <> "" Then
    getStopwordlistfromfile strPath & strFile
    strFile = Dir()
  Wend
End Sub

Stopwordlist.Clear

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.