'Hallo Boris...
'hier noch ein kleines Testbeispiel das es ermöglicht aus einem bestimmten 
' Verzeichnis
'Textdateien die mit wie in Ihrer Frage angegeben, mit news beginnen, 
' zeitverzögert
'per Zufall anzuzeigen.
'NG : 14.01.03
 
Private blFileName              As Boolean
Private sFileArray(1 To 512)    As String
Private k                       As Integer
Private blSwitch                As Boolean
Private myFilename              As String
 
Private Sub Form_Load()
    blSwitch = False
    myFilename = App.Path '"c:\" '... usw.
 
    If Right(myFilename, 1) <> "\" Then
        myFilename = myFilename & "\"
    Else
        myFilename = myFilename
    End If
 
    With Timer1
        .Enabled = True
        .Interval = 1000
    End With
End Sub
 
Private Sub Timer1_Timer()
    If Not blSwitch Then
        Call ShowTextfiles(myFilename, Text1, "news?", ".txt")
    Else
        Timer1.Enabled = False
    End If
End Sub
 
Public Sub ShowTextfiles(ByVal SourcePath As String, ByRef OutputControl As _
  TextBox, _
                                                     Optional mFilename As _
                                                     String = "", _
                                                     Optional mPattern As _
                                                     String = "*.*")
    Dim n                       As Integer
    Dim sPath                   As String
    Dim nFiles                  As String
    Dim fno                     As Integer
    Dim FileContent             As String
 
    Randomize
    If blFileName = False Then
        k = 0
        nFiles = Dir(SourcePath & mFilename & mPattern, vbArchive + vbHidden + _
          vbSystem + vbReadOnly)
        Do While nFiles <> ""
            k = k + 1
            sFileArray(k) = nFiles
            nFiles = Dir
        Loop
        If k < 1 Then
            MsgBox "In dem Pfad " & SourcePath & " sind keine (.txt) Dateien" & _
              "vorhanden.", vbOKOnly, "Fehler..."
            'End
            'oder...
            blSwitch = True
            Exit Sub
        End If
        blFileName = True
    End If
 
    n = Int((k * Rnd) + 1)
    '
    If Right(SourcePath, 1) <> "\" Then
        SourcePath = SourcePath & "\"
    Else
        SourcePath = SourcePath
    End If
    '
    sPath = SourcePath & sFileArray(n)
    Debug.Print sPath
    '
    fno = FreeFile
 
    Open sPath For Binary As #fno
        FileContent = Space$(LOF(fno))
        Get #fno, , FileContent
    Close #fno
    '
    OutputControl.Text = FileContent
End Sub
'MfG
'Frank