Finde filer i bestemte mapper

VB6? VBS? VB.NET?

Må være vb.net

Har pt

Dim tekst As String = Form1.txt_tekst.Text

        Dim wordArr As String()
        Dim result As String
        Dim fso As New FileSystemObject()
        Dim fld As Folder
        fld = fso.GetFolder("//server/spn/")

        For Each fil In fld.Files
            wordArr = fil.Name.Split("_")
            result = wordArr(1)
            'MsgBox(result)

            If result = tekst & ".pdf" Then
                LinkLabel1.Text = fil.name

            End If

        Next

Med VBA - http://www.eksperten.dk/spm/916623

Er ganske vist en lidt anden udfordring, men der anvendes et rekursivt kald af den funktion, der søger i alle mapper og deres undermapper.

Det ligner VB6 eller VBA

Du skal finde alt i start mappe - det kan du allerede.

Du maa kunne identificere directories via fil.Attributes.

Du maa kune teste om navn bestaar af 32 bestemte tal efterfulgt af alle mulige tal via regex.

det er

fld = fso.GetFolder("//server/spn/")
For Each fil In fld.Files
            wordArr = fil.Name.Split("_")
            result = wordArr(1)
            'MsgBox(result)
        Next

Skal laves om så den i lykken kun søger i undermapper, der ligger i mappen /Spn, og  hvor feks. undermappe navnet starter med 20

Kan godt leve med den leder i alle undermapper i hovedmappen
altså uden mappenavnstarter med feks. 20

Lukker lige denne og laver en ny