Dim sPath As String
 
sPath = "C:\Programme\Top25 V1\bin\"
Do
  If Dir$(sPatrh & "d2vexcrd.exe", vbNormal) = "" Then
    ' Ordner-Auswahl-Dialog anzeigen
    sPath = BrowseForFolder("Bitte Verzeichnis auswählen")
    If Len(sPath) = 0 Then Exit Do
    If Right$(sPath, 1) <> "\" Then sPath & sPath & "\"
  Else
    v_Anzeigen = Shell(sPath & "d2vexcrd.exe" & " " & s_OVLdateipfad, _
      vbMaximizedFocus) 
    Exit Do
  End If
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de