Option Explicit
 
Private Sub Command1_Click()
   Dim fso As New FileSystemObject
 
   If fso.FolderExists("\\arcis_nlbv00\fush\bin") Then MsgBox "Is existing", _
     vbInformation
 
   Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1