' Beginnt AppPath mit "\\", so wurde die 
  ' Anwendung direkt auf einem anderen Rechner gestartet
  NoStart = (Left$(App.Path, 2) = "\\")
  If Not NoStart Then
    [color=red]Wenn Nicht \\ dann Laufwerks-Typ prüfen!!![/color]
    ' Laufwerks-Typ abfragen
    ' 4 = RemoteDrive (Netzlaufwerk)
    NoStart = (GetDriveType(left$(App.Path, 1) + ":\") = 4)
  End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de