tjekke om et bibliotek findes??

Hej Jesperbaldur

Nedenstående kode udskriver om den specificerede folder eksisterer i debug vinduet.

Du skal sætte en reference til \"Microsoft Scripting Runtime\" i dit projekt.

-Kode Start------------------------------------
Dim FSYS As Scripting.FileSystemObject
Set FSYS = New Scripting.FileSystemObject
Debug.Print FSYS.FolderExists(\"C:\\Programmer\")
-Kode Slut------------------------------------

Med venlig hilsen

LKP

Tilføj Referencen \"Microsoft Scripting Runtime\" fra Project menuen.

Prøv derefter at start et projekt med denne kode:

Private Sub Command1_Click()

  Dim objFSO As Scripting.FileSystemObject
  Set objFSO = New Scripting.FileSystemObject
  If objFSO.FolderExists(\"C:\\winnt\") = True Then
  MsgBox \"Folderen findes\"
  Else
  MsgBox \"Folderen findes ikke\"
  End If
  Set objFSO = Nothing

End Sub

det virker, tak for hjælpen