Tælle antal txt filer ....

Private Sub Form_Load()
Timer1.Interval = 30000 '30 sek

File1.Visible = False  'viser ikke File1 Control
File1.Pattern = "*.txt" 'viser kun *.txt
End Sub

Private Sub Timer1_Timer()
  If File1.ListCount > 24 Then
    MsgBox "Nu er der 25 filer."
    Timer1.Enabled = False
  End If
End Sub

der mangler lige i Form_Load:

File1.Path = "C:\mappe"

Jeg ser ideen i det ... men hvis der er mere end 25 filer .. så skal den jo kun komme med meldingen en gang ..

Og funktionen skal køre altid .. ikke kun en gang.

Kan man fikse det på en måde.

fjærn Timer1.Enabled = False

Jeg ville nok vælge at "fjerne" den i stedet for at "fjærne" den! *lol*.

Det er langsomt at bruge en timer til at tælle filerne, og du skal heller ikke bruge en FileListBox, her er måden jeg ville gøre det på:
-----------------------
Dim FSO As Object, FLD As Object, FILE, AntalFiler As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLD = FSO.GetFolder("C:\Windows")
For Each FILE In FLD.Files
If LCase(Right(FILE.Name, 4)) = LCase(".txt") Then
    AntalFiler = AntalFiler + 1
End If
Next FILE
If AntalFiler > 25 Then MsgBox "Mappen indeholder over 25 filer!"
'AntalFiler variablen er nu hvor mange text-filer der er i mappen