Hur gör man för att lista och lägga in alla filnamn i en viss mapp i en vektor?

/ Peter

Den här koden vorde fungera, har inte testat den, men pröva du...
<code>
Function ReturnFileNamesInAVector(ByVal sPath As String) As Variant
Dim sTemp As String
Dim sVector() As String, i As Integer
If Right(Trim(sPath), 1) <> "\" Then
sPath = sPath & "\"
End If

sTemp = Dir(sPath & "*.*", vbDirectory)

Do While sTemp <> vbNullString
Debug.Print sTemp
If Not (GetAttr(sPath & sTemp) And (vbVolume + vbDirectory)) > 0 Then
ReDim Preserve sVector(i)
sVector(i) = Mid(sTemp, InStrRev(sTemp, "\") + 1)
i = i + 1
End If
sTemp = Dir
Loop

ReturnFileNamesInAVector = sVector
End Function
</code>