Ja, das ist natürlich eleganter... > dim f as FolderItem = app.ExecutableFile > > while f.Parent<>Nil > f = f.Parent > wend
> if f.ShellPath = volume(0).ShellPath then > MsgBox "On start volume." > else > MsgBox "not on start volume." > end if Geht das mit ShellPath auch auf Windows? Danke für deine Hilfe, Christian! LG MIke
