''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script        : Navigation                                                   '
' File          : 02_01_OrdnerNavigation.vbs                                   '
' Date          : 2006-12-04 - Last modified: 2006-12-05                       '
'                                                                              '
'               Michael Puff - http://www.michael-puff.de                      '
'                                                                              '
'          Auf ein Dateiobjekt zugreifen und zum zugehörigen                   '
'                       Elternordner navigieren                                '
'                                                                              '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set fso = CreateObject("Scripting.FileSystemObject")
Set fi1 = fso.GetFile("G:\~Austausch\Bank\source\bank.dpr")
Set fo1 = fi1.ParentFolder
temp = fo1.name
WScript.Echo temp