Dim server As String
  Dim x As Long
  Dim cmdParseList() As String
 
 
  If cmdParser(cmdParseList, " ") > 0 Then
    server = "\\" & cmdParseList(1)
  End If

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control