Kontrollere for filer i filsystemt

Du skal have en timer, som en i et passende interval udfører koden, som kontrollerer biblioteket for nye filer.

Du kan så have en file list box der lister filerne. (den behøver jo ikke være visible). Så tager du filerne én for én og sammenligner med ovenstående mønster.

Ja det er jeg med på. Men ville gerne se lidt kode - derfor det høje point tal.

Du skal som sagt have en File listbox og en timer, i eksemplet hedder de File1 og Timer1. Konstanten SrchPath er det directory der overvåges. Så kunne det se sådan ud:

Const SrchPath As String = "D:\"

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    File1.Visible = False
    File1.Path = SrchPath
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    Dim f As String
   
    File1.Refresh
   
    For i = 0 To File1.ListCount - 1
        f = File1.List(i)
        If (Left(f, 1) = "W") And Mid(f, 6, 1) = "L" And Mid(f, 11, 1) = "." Then
            If IsNumeric(Mid(f, 2, 4)) And IsNumeric(Mid(f, 7, 4)) And _
              IsNumeric(Mid(f, 12, 3)) Then
               
                MsgBox "Filen: " + vbCrLf + f + vbCrLf + "opfylder kriterierne."
            End If
        End If
    Next i
   
End Sub


Koden kontrollerer hvert sekund (Timer1.interval).

Cool - tester lige i morgen. Hvis det virker er jeg MEGET glad. Tak på forhånd.

Har ikke fået testet endnu, men jeg tager det for gode vare, så vi kan få lukket.
Tak.