Får ett mysko felmess när jag använder fso.GetFolder
"Can't assign to array"

-------------------------------------------

Option Explicit
Private fso As New FileSystemObject
Private dbpath As String
Private fillista() As String

Private Sub skapadbmapp()
If fso.FolderExists(App.Path & "\notedb\") = False Then
fso.CreateFolder (App.Path & "\notedb")
End If
If fso.FolderExists(App.Path & "\notedb\") Then
End If
dbpath = App.Path & "\notedb\"
End Sub
Private Sub Form_Load()
Call skapadbmapp
Caption = dbpath
MsgBox (dbpath)
fillista = fso.GetFolder(dbpath)
End Sub

Testa att ändra till

Call skapadbmapp
Me.Caption = dbpath
MsgBox dbpath
fillista = fso.GetFolder dbpath