Dim DriveType As vDriveTypes
DriveType = GetDriveType(Left(App.Path, 1))
Select Case DriveType
Case 3
  MsgBox "von Festplatte"
End Select

If Right(App.Path, 1) = "\" Then
  MsgBox "Im Hauptverzeichnis"
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.