Mappeoversigt i en formular (mugs)
Hej MugsDu gave dette svar for et stykke tid siden, jeg har kigget lidt på dit svar og kan ikke få det til at virke, nok fordi jeg har rodet med det. Du skriver at du vil kigge på et direkte link (hyberlink), kunne du lokkes til at kigge på det igen
Her er hvad jeg har lavet af ulykker
Private Sub Kombinationsboks41_BeforeUpdate(Cancel As Integer)
Function GetFiles()
Dim stName As String
Dim tmpList As String
On Error GoTo err_FillFiles
stName = Dir("d" & ":" & "\" & "mappe" & "\" & vcpr & "\*.*")
Do While stName <> ""
On Error Resume Next
If (GetAttr(stdir & stName) And vbDirectory) <> vbDirectory Then
'File Already open?
If Err.Number = 5 Then Err.Clear
If stName <> "." Or stName <> ".." Then
'FileList.Add Item:=(stName)
tmpList = tmpList & stName & ";"
End If
End If
'Get Next entry
stName = Dir
Loop
GetFiles = Left(tmpList, Len(tmpList) - 1)
exit_FillFiles:
Exit Function
err_FillFiles:
If Err.Number = 71 Then
MsgBox AccessError(Err.Number) _
& " Prøv venligst igen. ", vbCritical + vbOKOnly, _
"Fejl ved læsning af drev " & stdir
End If
Resume exit_FillFiles
End Function