> > Denne linie bør nok erstates af Dim strArray() As String
>
> Det synes jeg du skulle prøve
Hvis du selvfølgelig erstatter henvisningerne til varArray med strArray, så
bliver det således (og det virker):
Option Explicit
Private Sub Command1_Click()
Dim strPath As String
Dim strNames As String
Dim strArray() As String
strPath = "C:\*.*"
' Skaf en liste over filnavne adskilt med ";"
strNames = strFilenames(strPath)
strArray = Split(strNames, ";")
' Vis de fundne filnavne
Dim i As Integer
For i = LBound(strArray) To UBound(strArray)
Debug.Print strArray(i)
Next
End Sub