Option Explicit
Dim sRootPath As String
 
Private Sub Form_Load()
  ' Ausgangsverzeichnis
  sRootPath = App.Path
  Dir1.Path = sRootPath
End Sub
 
Private Sub Dir1_Change()
  If Len(Dir1.Path) < Len(sRootPath) Then
    Dir1.Path = sRootPath
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de