hente filnavne fra en mappe

Ja - det skulle være muligt - vender tilbage...

Koden anbringes i Ark1

Const mappeNavn = "C:\Documents and Settings\pb\Skrivebord\1312Spoi\filmappe"  'tilpasses
Dim ræk
Sub hentFilnavne()
    ræk = 1
    FindFiler mappeNavn
   
    Columns.AutoFit
End Sub
Private Sub FindFiler(folderspec)
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        filnavn = LCase(f1.Name)
        If Right(filnavn, 5) = "m.pdf" Then
            ActiveSheet.Cells(ræk, 1) = filnavn
            ræk = ræk + 1
        End If
    Next
End Sub

Hvorfor ikke bare køre en dos kommandi og pipe resultatet til e tekstfil som så editeres i excel

C:\>dir > dir.txt der indskriver indholdet af C drevet i dir.txt filen, der så kan indlæses, formateret

Noget nyt?

yep det virker - undskylder meget for forsinkelsen
Point til dig Supertekst ;O) Så læg et svar

LN

OK - du får et svar

????