Dim liitem As ListItem
Dim file As String
 
VBA.chdir "c:\dein_verzeichniss\"
 
Do
file = VBA.Dir
If file = "" Then Exit Do
'sonst
Set liitem = Listview1.ListItems.Add(, , file )
Loop

Public Function VerweisAusDatei(strDateiname As String) As Boolean
    Dim ref As Reference
 
    On Error GoTo Error_VerweisAusDatei
    ' Neuen Verweis erstellen.
    Set ref = References.AddFromFile(strDateiname)
    VerweisAusDatei = True
 
Exit_VerweisAusDatei:
    Exit Function
 
Error_VerweisAusDatei:
    If Err.Number = 32813 Then
    VerweisAusDatei = True
    Resume Next
    Else
    MsgBox Err & ": " & Err.Description
    VerweisAusDatei = False
    Resume Exit_VerweisAusDatei
    End If
End Function

dim progid as variant
progid = VBA.Shell("regsvr32.exe /s C:\irgendwo\deine.dll", vbNormalFocus)