Hej allihop!

Jag skulle vilja veta om det finns ett enkelt sätt att räkna antalet filer i en katalog och sen returnera det värdet och spara det i en variabel. Det är klart att det går, men JAG vet inte hur! :)

//Magnus

Hej. Här är mitt lösningsförslag.

Sample Code ====================================

Option Explicit

Private Sub Form_Load()
Dim nFiles as integer
nFiles = fileCount("sökväg till katalog")
End Sub

Public Function fileCount(ByVal iPath As String) As Integer
Dim iStr As String
iPath = Replace(iPath & "\*", "\\", "\", 1, -1, vbTextCompare)
iStr = Dir(iPath)
While iStr <> ""
fileCount = fileCount + 1
iStr = Dir
Wend
End Function

Sample Code =====================================

/peterh

hmmm...

det SER ju bra ut, men jag förstår inte riktigt hur jag skall använda det! :) Jag är en total nybörjare, så...

Vilken variabel innehåller t.ex. antalet filer i katalogen?

Hoppas ni har överseende.....

Se exemplet ovan igen, jag har ändrat lite i det så fattar du kanske bättre.

/peterh

nu fattade jag mycket bättre!!! TACK!