Re: Client sicherstellen

[Christian Schmitz]

Am 16.04.2010 um 21:37 schrieb Mike Ott:

> Kannst du mir noch ein bisschen genauer Auskunft geben?

  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
  
So in etwa müsste es gehen.

Greetings
Christian

-- 
Read our blog about news on our plugins:

http://www.mbsplugins.de/