Danke, Christian schon mal für die Idee. Ich dachte an etwas ähnliches und
komme so mit parent zum Startvolume:
> du kannst von app.executeable mit .parent runtergehen, bis parent = nil ist
Dim f, g As FolderItem
f = GetFolderItem("")
do Until f = nil
f = f.Parent
if f <> nil Then
g = f
end
Loop
MsgBox g.Name
> dann das mit volume(0) vergleichen. Also zum Beispiel ob der Shellpath
> gleich ist.
Kannst du mir noch ein bisschen genauer Auskunft geben? Das ganze sollte auf
Dose und Apfel funktionieren. Wie könnte ich sicherstellen, dass g nicht das
Startvolume ist? Wäre das ein Weg:
if g.AbsolutePath = Volume(0).AbsolutePath Then
MsgBox "Startvolume"
end
LG Mike
